Запуск внешнего приложения

← →
Иксик (2003-02-25 15:48) [0]

Как запустить внешнюю прогу, при этом получив ее handle? Когда делаю это shellexecute, он не возвращает handle.

← →
gsu © (2003-02-25 15:52) [1]

createprocess

← →
Иксик (2003-02-25 16:02) [2]

Я то же сначала так подумал, просто решил что shellexecute"ом будет легче :)
Можншь поподробнее про createprocess, как им пользоваться?

← →
blackman © (2003-02-25 16:06) [3]

например вызвать Notepad:

procedure TForm1.Button1Click(Sender: TObject);
var
si : Tstartupinfo;
p : Tprocessinformation;
begin
FillChar( Si, SizeOf( Si ) , 0 );
with Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Application.Minimize;
Createprocess(nil,"notepad.exe",nil,nil,false,Create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infinite);
Application.Restore;
end;

← →
Иксик (2003-02-25 16:35) [4]

> dwFlags := startf_UseShowWindow;

> Create_default_error_mode

> Waitforsingleobject(p.hProcess,infinite);

А это чего такое?

← →
Иксик (2003-02-25 16:37) [5]

И где там handle?
Я ужасно извиняюсь за тупые вопросы, просто я с этим никогда не работал, а сейчас вдруг срочно понадобилось.

← →
gsu © (2003-02-25 16:53) [6]

http://www.firststeps.ru/mfc/winapi/r.php?131

← →
Иксик (2003-02-25 16:57) [7]

Ок, все ясно, только почему вот это не работает:

Createprocess(nil,"notepad.exe",nil,nil,false,Create_default_error_mode,nil,nil,si,p); Waitforsingleobject(p.hProcess,infinite); GetWindowText(p.hProcess, buff, sizeof(buff)); showmessage(buff) // Показывает пустое сообщение

int GetWindowText(
HWND hWnd, // handle of window or control with text
LPTSTR lpString, // address of buffer for text
int nMaxCount // maximum number of characters to copy
);

← →
Иксик (2003-02-25 17:03) [9]

Вроде разобрался, спасибо большое gsu и blackman

здорово, мне б кто-нить подсказал, хлюп, хлюп, ...

Запуск внешнего приложения Найти похожие ветки