Как вызвать диалог “Выполнить”?

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