Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];

Вниз

запуск программы из своей с контролем   Найти похожие ветки 

 
igorbuz   (2003-02-23 04:42) [0]

Подскажите, как запустив программу из своей программы, убедиться что она запущена и выполняется. Т.е. тот момент когда она уже загрузилась и начала работать. Спасибо заранее!


 
Song   (2003-02-23 09:54) [1]

WaitForInputIdle()


 
Alexandr B.   (2003-02-23 10:02) [2]

function EnumWindowsProc(hWindow : hWnd;
lParam : LongInt) : Bool
{$IFDEF Win32} stdcall; {$ELSE} ; export; {$ENDIF}
begin
Result := True;
if IsWindowVisible(hWindow) then
begin
SetWindowText(hWindow,"test");
result := false;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var si:STARTUPINFO;
pi:PROCESS_INFORMATION;
begin
ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);

CreateProcess(nil,
"notepad.exe"
,nil,nil,false,NORMAL_PRIORITY_CLASS,nil,nil,si,pi);
CloseHandle(Pi.hThread);
WaitForInputIdle(pi.hProcess,INFINITE);
CloseHandle(Pi.hProcess);
EnumThreadWindows(pi.dwThreadId,@EnumWindowsProc,0);
end;


 
igorbuz   (2003-02-23 16:07) [3]

Спасибо огромное! Буду пробовать!


 
Diamond Cat   (2003-02-24 00:56) [4]

добавляю к Song что для начала CreateProcess а уж далее WaitForInputIdle


 
Song   (2003-02-24 05:15) [5]

2Diamond Cat © (24.02.03 00:56)
:)
Не обязятельно CreateProcess, можно и ShellExecuteEx()
Главное нужно узнать идентификатор процесса.
С праздником.


 
igorbuz   (2003-02-24 16:14) [6]

спасибо всем!
с праздником!


 
Diamond Cat   (2003-02-24 17:25) [7]

согласен, но это уже частности


 
igorbuz   (2003-02-25 04:24) [8]

2 Alexander B., Diamond Cat & Song
работает прекрасно, спасибо всем еще раз огромное!
использовал в кач. основы текст Alexandra B. (см.), скажите а зачем там следующее:
CloseHandle(Pi.hThread);
и
CloseHandle(Pi.hProcess);
?


 
Diamond Cat   (2003-02-25 22:59) [9]

попробуй запусти раз двадцать (или более) эту программу без эитх строк и проверь ресурсы системы , состояние конечно не плачевное но они падают


 
igorbuz   (2003-02-27 16:02) [10]

я примерно так и думал. спасибо за прояснение!



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

Форум: "WinAPI";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.008 c
3-76787
Iii
2003-04-04 18:37
2003.04.24
Восстановление удаленной записи


3-76815
dimmu3
2003-04-07 08:33
2003.04.24
Timestamp в Inrerbase


3-76839
Roka
2003-04-04 21:42
2003.04.24
select and between


1-77010
Sergik
2003-04-14 10:02
2003.04.24
SpinEdit


14-77130
apple1
2003-04-08 14:23
2003.04.24
На чем лучше HELP писать и где можно почитать об этом?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский