Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.03 c
14-1093108613
able
2004-08-21 21:16
2004.09.12
PHP. Проверка валидности e-mail a


14-1093061627
able
2004-08-21 08:13
2004.09.12
Ну вот.. выходные... форум отдыхает :(


1-1093862827
TEXHAPb
2004-08-30 14:47
2004.09.12
Как запретить редактировать текст ячейки в TStringGrid


6-1089111155
fylhtq
2004-07-06 14:52
2004.09.12
Invalid pointer operation при пинге - в чем засада?


4-1089974361
Muchacho
2004-07-16 14:39
2004.09.12
Kак изменить рисунок рабочего стола Windows XP?