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

Вниз

Как запустить файл с добавками.   Найти похожие ветки 

 
Le!   (2003-05-09 07:25) [0]

Народ подскажите. нужно запустить файл например вот так: "Pkzip.exe -b log.zip". как ето можно сделать?
Shellexecute не помогает, либо просто не работает.


 
german goering   (2003-05-09 07:47) [1]

А так не работает что-ли?:
WinExec("Pkzip.exe -b log.zip",SW_OPTION)
ShellExecute(hwnd,"open","Pkzip.exe","-b log.zip",dir,SW_OPTION)


 
Erik Ivanov   (2003-05-09 12:31) [2]

Или так:
var
SI: TStartupInfo;
PI: TProcessInformation;
begin

ZeroMemory(@SI, SizeOf(SI));
SI.cb := SizeOf(SI);
SI.dwFlags := STARTF_USESHOWWINDOW;
SI.wShowWindow := SW_SHOW; //SW_HIDE;

//Run Application

if CreateProcess(nil,PChar(Cmd), nil, nil, False,
CREATE_NEW_CONSOLE or IDLE_PRIORITY_CLASS, nil, nil, SI, PI) then begin
SetPriorityClass(PI.hProcess, IDLE_PRIORITY_CLASS);
SetThreadPriority(PI.hThread,THREAD_PRIORITY_LOWEST);
WaitForSingleObject(PI.hProcess, INFINITE);
CloseHandle(PI.hThread);
CloseHandle(PI.hProcess);
end else begin
raise Exception.Create("Invalid create process "+SysErrorMessage(GetLastError()));
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.01 c
14-70476
Den
2003-05-03 09:14
2003.05.22
Цифры в слова


14-70457
LOX
2003-05-03 12:23
2003.05.22
explorer.exe


1-70386
P@SHA
2003-05-10 19:34
2003.05.22
Открытие текстового файла своей программой


7-70548
besenok
2003-03-24 11:36
2003.05.22
Переменные среды окружения


1-70274
Zelius
2003-05-07 17:17
2003.05.22
Как отлавливать все Exceptionы программы?