Как отследить запущенную программу через winexec

← →
koha (2006-06-30 17:25) [0]

Моя программа запускает другую программу через winexec.
Как отследить в каком состоянии запущенная программа, завершила ли свою работу или еще нет? Можно ли вообще отследить запущенное через winexec?

← →
TUser © (2006-06-30 17:27) [1]

CreateProcess + WaitForSingleObject

← →
koha (2006-06-30 17:37) [2]

при CreateProcess не могу закомпилить прогу, где ошибка?

var
Form1: TForm1;
lpApplicationName: PAnsiChar;
lpCommandLine: PAnsiChar;
lpProcessAtrributes: PSecurityAttributes;
lpTreadeAtrributes: PSecurityAttributes;
binheritHandles : LongBool;
dwCreationFlags : Cardinal;
lpEnvironment : Pointer;
lpCurrentDirectory: PAnsiChar;
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
lpApplicationName:=PChar("");
lpCommandLine:=PChar("C:\%%\Project3.exe");
lpProcessAtrributes:=Nil;
lpTreadeAtrributes:=Nil;
binheritHandles:=false;
lpEnvironment:=Nil;
dwCreationFlags:=NORMAL_PRIORITY_CLASS;
lpCurrentDirectory:=PChar("C:\%%\");

CreateProcessA(lpApplicationName,
lpCommandLine,
lpProcessAtrributes,
lpTreadeAtrributes,
binheritHandles,
dwCreationFlags,
lpEnvironment,
lpCurrentDirectory);

end;

← →
Плохиш © (2006-06-30 17:42) [3]

> koha (30.06.06 17:37) [2]
> при CreateProcess не могу закомпилить прогу, где ошибка?

В сообщении об ошибке написано.

← →
koha (2006-06-30 17:44) [4]

Где и на каком интернет ресурсе можно подробно узнать об CreateProcess

← →
Плохиш © (2006-06-30 17:46) [5]

http://www.swissdelphicenter.ch/de/showcode.php?id=93

← →
koha (2006-06-30 17:48) [6]

[Pascal Error] Unit1.pas(56): E2035 Not enough actual parameters
[Pascal Fatal Error] Project1.dpr(5): F2063 Could not compile used unit "Unit1.pas"

Вот что там написано, но мне это ни очем не го ворит, я догнать не могу какой параметр неправильный.

← →
Плохиш © (2006-06-30 18:03) [7]

> koha (30.06.06 17:48) [6]

Вообще-то у функции CreateProcess 10 параметров.

← →
koha (2006-06-30 18:49) [8]

Я имел ввиду эту функцию CreateProcess
Сам делфи в хинтах подсказывает только восемь параметров.
Может что - то с самим редактором нитого. У меня версия Delphi2006 Studio
ктому же супер новинка еще 3х дисковый релиз.

← →
Vlad © (2006-06-30 18:53) [9]

> koha (30.06.06 18:49) [8]

> Not enough actual parameters

означает что нехватает параметров, значит видимо

> Может что - то с самим редактором нитого.

> У меня версия Delphi2006 Studio
> ктому же супер новинка еще 3х дисковый релиз.

На рынке купил, признавайся :-)

← →
koha (2006-06-30 18:58) [10]

Нет не покупал

← →
koha (2006-06-30 19:07) [11]

Borland Developer Studio 2006 Delphi-C++-Builder 2006 Свободно лежит в сетях
eP2K - весь 4х - дисковый релиз там и C++ 2006-я и Delphi2006-я и многое другое ненужное и нужное. Все это можно скачать через emule
http://emule-project.net

← →
Шпиён (2006-06-30 19:13) [12]

function CreateProcess(lpApplicationName: PChar; lpCommandLine: PChar;
lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;
lpCurrentDirectory: PChar; const lpStartupInfo: TStartupInfo;
var lpProcessInformation: TProcessInformation): BOOL; stdcall;

Я подозреваю, что этот "глючок" с показом хинта есть во всех версиях Delphi.
Просто напросто не может показать хинт длиннее 255 символов и обрезает излишек.

← →
koha (2006-06-30 19:33) [13]

Да, теперь я вижу недостающие параметры.

> Где и на каком интернет ресурсе можно подробно узнать об
> CreateProcess

msdn.microsoft.com

Как отследить запущенную программу через winexec Найти похожие ветки