
14.06.2007, 06:18
|
 |
Модератор
|
|
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
|
|
Вот программа которая запускает файл 'drkb23.chm' из того же каталога в котором находится сама. Размер exe'шника - 13824 байта.
Код:
program Project1;
{$APPTYPE CONSOLE}
function ShellExecute (HWND:THandle;
lpOperation,lpFile,lpParameters,lpDirectory:PChar;
nShowCmd:Integer):HINST; stdcall; external 'shell32.dll' name 'ShellExecuteA';
begin
ShellExecute(0,nil,'drkb23.chm',nil,nil,1);
end.
|