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

Вниз

Как запустить приложение с параметром? :)   Найти похожие ветки 

← →
TankMan1   (2004-08-25 09:02) [0]

Ну не занаю я как запускать приложение с параметром :), пробовал CreateProcces(PChar(Мое приложение+" "+параметр),nil,блаблабла)
Но почему-то не запускает вообще :(

---

← →
Ega23 ©   (2004-08-25 09:05) [1]

WinExec, ShellExecute + F1

---

← →
Рамиль ©   (2004-08-25 09:08) [2]

Ага, крнечно, запустится с блаблабла
var
 Rlst: LongBool;
 StartUpInfo: TStartUpInfo;
 ProcessInfo: TProcessInformation;
 Error: integer;
begin
 FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0);
 with StartUpInfo do
 begin
   cb := SizeOf(TStartUpInfo);
   dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
   wShowWindow := SW_SHOWNORMAL;
 end;
 Rlst := CreateProcess("C:\Windows\System32\notepad.exe", " c:\readme.txt", nil, nil, false, NORMAL_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcessInfo);
 if Rlst then
 with ProcessInfo do begin
   WaitForInputIdle(hProcess, INFINITE); // ждем завершения инициализации
   CloseHandle(hThread); // закрываем дескриптор процесса
   CloseHandle(hProcess); // закрываем дескриптор потока
 end
else Error := GetLastError;
end;

Эквивалент
Rlst := CreateProcess(nil, "notepad c:\readme.txt", nil, nil, false, NORMAL_PRIORITY_CLASS,
nil, nil, StartUpInfo, ProcessInfo);

---

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

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

Наверх

Память: 0.47 MB
Время: 0.031 c