MessageBox

[mifka72]

Реально вставить в текст MessageBox'а из пееменной String?, например запрос на удаление файла, чтоб показывал имя файла которое будет удаляться.
PS: про удаление я к примеру сказал, мне просто надо знать как туда содержимое переменной вставить.
Спасибо.

[Utkin]

Реально . См. в хелпе по MessageBox и MessageBoxA.

[mifka72]

Сообщение от Utkin

Реально . См. в хелпе по MessageBox и MessageBoxA.

приведи пожалуйста пример, у меня хелп походу кривой... или я

[ОДИНОЧЕСТВО В СЕТИ]

s:='test.txt';
MessageBox(0,PChar('Вы хотите удалить файл  '+s+' ?'),PChar('заголовок'),1);

[Utkin]

function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;

MessageBox(PChar(s1), 'бла-бла', MB_OK);

PS. Функции можно вызывать как процедуры

[ОДИНОЧЕСТВО В СЕТИ]

2Utkin в моей Delphi7 данная конструкция

MessageBox(PChar(s1), 'бла-бла', MB_OK);

почему то отказывается компилиться
пишет:

[Error] Unit1.pas(30): Incompatible types: 'HWND' and 'PAnsiChar'

[Utkin]

Я имел ввиду вызов от приложения.
Использовать Application.MessageBox(параметры), извиняюсь, забыл указать .

[mifka72]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

s:='test.txt';
MessageBox(0,PChar('Вы хотите удалить файл  '+s+' ?'),PChar('заголовок'),1);

Спасибо огромное, помогло

[Stilet]

почему то отказывается компилиться

Не удивительно
Уткин пропустил параметр Хендла
Рекомендую:

MessageBox(GetForegroundWindow,PChar('Вы хотите удалить файл  '+s+' ?'),PChar('заголовок'),1);

Чтоб наверняка появилось сверху.

[Utkin]

Сообщение от Stilet

Уткин пропустил параметр Хендла

Ниче я не пропускал Хэндл. Есть такой метод у TApplication - это обертка, она сама хэндл проставляет . Просто писать надо было Application.MessageBox