| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Каким образом через Delphi можно запустить *.exe с .... [D5, Win2k]
Romualds Stashans © (2001-12-18 11:07:00)Каким образом через Delphi можно запустить *.exe (конкретно просмотровщик презентаций PowerPoint), причем чтобы в просмотровщик был подгружен необходимый файл формата PowerPoint?
Anatoly Podgoretsky (2001-12-18 12:33:00) [1]ShellExecute(Handle,"open","PPT_FILE.ppt",nil,nil,sw_shownormal)
Dmitriy(new) (2001-12-18 11:39:00) [2]function CreateProcessSimple(sExecFilePath:string;AWait:Boolean;AMax:Boolean):string;
var si: TStartupInfo; pi: TProcessInformation;
begin
FillMemory( @si, sizeof( si ), 0 ); si.cb := sizeof( si );
IF Amax Then Begin si.dwFlags := STARTF_USESHOWWINDOW; si.wShowWindow:=SW_SHOWMAXIMIZED; End;
if not CreateProcess(Nil,PChar(sExecFilePath ),Nil, Nil, False,
NORMAL_PRIORITY_CLASS , Nil, Nil, si, pi ) then
Application.MessageBox(Pchar("Failed to execute program : "+sExecFilePath),"Error",IDOK);
result:=inttostr(PI.hProcess); CloseHandle( pi.hThread );
Application.ProcessMessages;
if AWait then WaitForSingleObject(pi.hProcess, INFINITE);
CloseHandle( pi.hProcess );
end;
Digitman (2001-12-18 11:23:00) [3]PP можно грузить как OLE-сервер (со всеми вытекающими возможностями)
gek (2001-12-18 11:17:00) [4]ну вроде бы так
winexec(pchar("c:\word file_name"),sw_shownormal)
| |
