Главная страница
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.025 c
1-1093509575
EXCEL
2004-08-26 12:39
2004.09.12
Вопрос по TExcelApplication .


14-1093507742
pasha_golub
2004-08-26 12:09
2004.09.12
Заземление. ГОСТ


14-1093088582
YurikGL
2004-08-21 15:43
2004.09.12
16 цветов


14-1093502826
Holy
2004-08-26 10:47
2004.09.12
Страховая пенсия


14-1092970149
Думкин
2004-08-20 06:49
2004.09.12
С днем рождения! 20 августа