Программирование на Delphi и не только Как вызвать диалог “Выполнить”? | Программирование на Delphi и не только

Запись на от zavsoft.ru

Delphi FAQ >> Диалоги

Перед разделом var запишите объявление процедуры:

Procedure RunDialog (Handle: THandle; Icon: HIcon; Directory: PChar; Title: PChar; Description: PChar; Flags: Integer); stdcall; external ‘shell32.dll’ index 61;

Пример использования:

Procedure TForm1.Button1Click (Sender: TObject);
const   //параметры   REF_NOBROWSE=1;   REF_NODEFAULT=2;   REF_CALCDIRECTORY=4;   REF_NOLABEL=8;   REF_NOSEPARATEMEM=$20; //только для NT

begin

  RunDialog(Handle, Icon.Handle, PChar (‘D:’), PChar (‘Запуск’), PChar (»), REF_NOBROWSE or REF_NODEFAULT);
end;

Можете приобрести карты оплаты xbox live