Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.03;
Скачать: CL | DM;

Вниз

Путь к диалогу выполнить Windows-a   Найти похожие ветки 

 
DelphiN! ©   (2004-09-13 09:07) [0]

Не подскажет ли кто путь к диалогу выполнить Виндовса(как его вызвать)


 
easy ©   (2004-09-13 10:08) [1]

procedure ShowRunDialog(Handle:HWND);
var
   RunDialog: function (hOwner: HWND; hIcon: HICON; pszDirectory: LPWSTR ;
           szTitle: LPWSTR ; szPrompt: LPWSTR ; uFlags: Integer): Integer;
stdcall;

   DLLHandle: HMODULE ;
begin

   DLLHandle := LoadLibrary("SHELL32.DLL");
   if DLLHandle <> 0 then begin
       @RunDialog := GetProcAddress(DLLHandle, Pchar(61));
       if @RunDialog <> nil then
           RunDialog(handle, 0, NIL, NIL, NIL , 2)
       else
           MessageBox(Handle, Pchar("Cannot show RunDialog"),
Pchar("Error"), MB_OK or MB_IconError);

       FreeLibrary(DLLHandle);
   end
   ELSE
       MessageBox(Handle, Pchar("Cannot load SHELL32.DLL."),
Pchar("Error"), MB_OK or MB_IconError);

end;



Страницы: 1 вся ветка

Текущий архив: 2004.10.03;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.023 c
1-1095327137
Black
2004-09-16 13:32
2004.10.03
как узнать кол-во символов в текстовом файле?


1-1095327018
webpauk
2004-09-16 13:30
2004.10.03
Создание события


14-1095151477
Dmitriy O.
2004-09-14 12:44
2004.10.03
Лысина - это полянка, вытоптанная мыслями.


1-1095255024
NeyroSpace
2004-09-15 17:30
2004.10.03
TTreeView. Сделал свою отрисовку в CustomDraw. Осталась


8-1087554408
NEEDHelp
2004-06-18 14:26
2004.10.03
Kak mozhno v Delphi narisovat zvuk iz mikrofona?