Home

Page 139
Page 139
background image

132 Глава 3

 :=

if hDll <> 0 then

begin

//

 is load by ID really good?

 :=

 PChar(62));

 :=

 PChar(185));

SHObjectProperties :=

 :=

 PChar(91)};

SHFindFiles :=

 PChar(90));

SHRunFileDlg

 GetProcAddress (hDll, PChar(61));

SHRestartDlg

 PChar(59));

end

if hDll <> 0 then

end.

Теперь добавьте в раздел uses имя нашего модуля

 и ском-

пилируйте проект. Теперь можете запустить проект и посмотреть результат.

На компакт-диске в директории \Примеры\Глава 3\File Operation вы можете

увидеть пример данной программы и цветные версии рисунков.


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.