Перед разделом 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