Не успевает отрабатывать внешняя программа

← →
YuriyTLT (2006-11-04 02:50) [0]

Доброго уже утра. Парни, есть код:

CopyFile ("m:\sys\tag.dat", "e:\chasovoi\tag.dat", true);
CopyFile ("m:\sys\tag.dat", "e:\chasovoi\tag.dat", false);
WinExec("e:\chasovoi\tagi.exe",SW_SHOWMINNOACTIVE);
Sleep (2000);
Вот этот последний Sleep (2000) делаю для того, чтобы успела отработать программа tagi. Может как нибудь можно отслеживать завершение её работы?

← →
Palladin © (2006-11-04 03:54) [1]

Зачем два раза CopyFile?

← →
YuriyTLT (2006-11-04 04:43) [2]

Это для того, что файла может не существовать в каталоге, типа перестраховка. Если труе - значит меняется, если фальш - значит копируется заново

← →
Palladin © (2006-11-04 05:13) [3]

чушь

← →
YuriyTLT (2006-11-04 05:19) [4]

чушь, зато работает. А ладно, сам разберусь. Спасибо

← →
RASkov (2006-11-04 05:37) [5]

if FileExist then CopyFile ("m:\sys\tag.dat", "e:\chasovoi\tag.dat", false)
else CopyFile ("m:\sys\tag.dat", "e:\chasovoi\tag.dat", true);
ExecuteAndWait("e:\chasovoi\tagi.exe", True);

function ExecuteAndWait(FileName: string; HideApplication: boolean): boolean;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
exitc: cardinal;
begin
FillChar(StartupInfo, sizeof(StartupInfo), 0);
with StartupInfo do begin
cb := Sizeof(StartupInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := SW_SHOW;
end;
if not CreateProcess(nil, PChar(FileName), nil, nil, false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil,
StartupInfo, ProcessInfo) then result := false
else begin
if HideApplication then begin
Application.Minimize;
ShowWindow(Application.Handle, SW_HIDE);
WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
end else
while WaitforSingleObject(ProcessInfo.hProcess, 100) =
WAIT_TIMEOUT do begin
Application.ProcessMessages;
if Application.Terminated
then TerminateProcess(ProcessInfo.hProcess, 0);
end;
GetExitCodeProcess(ProcessInfo.hProcess, exitc);
result := (exitc = 0);
if HideApplication then begin
ShowWindow(Application.Handle, SW_SHOW);
Application.Restore;
Application.BringToFront;
end;
end;
end;

← →
Anatoly Podgoretsky © (2006-11-04 10:42) [6]

> YuriyTLT (04.11.2006 2:50:00) [0]

А ты справку по WinExec читал и откуда вы только беретесь, Win 3.0 уже не
существует более 10 лет а программисты все ее помнят.
Ну а про чушь с CopyFile тебе уже сказали.

← →
Орион © (2006-11-04 12:35) [7]

> [5] RASkov (04.11.06 05:37)

> if FileExist then CopyFile ("m:\sys\tag.dat", "e:\chasovoi\tag.dat",
> false)
> else CopyFile ("m:\sys\tag.dat", "e:\chasovoi\tag.dat",
> true);

))

CopyFile ("m:\sys\tag.dat", "e:\chasovoi\tag.dat", not FileExist("m:\sys\tag.dat"))

← →
Leonid Troyanovsky © (2006-11-04 12:56) [8]

YuriyTLT (04.11.06 05:19) [4]
чушь, зато работает. А ладно, сам разберусь. Спасибо

RASkov (04.11.06 05:37) [5]
if FileExist then CopyFile ("m:\sys\tag.dat", "e:\chasovoi\tag.dat", false)
else CopyFile ("m:\sys\tag.dat", "e:\chasovoi\tag.dat", true);

Орион © (04.11.06 12:35) [7]
> CopyFile ("m:\sys\tag.dat", "e:\chasovoi\tag.dat", not FileExist("m:
> \sys\tag.dat"))

Чушь.

--
Regards, LVT.

сначала написал, потом подумал (ну как обычно :) )
хватит просто False

Не успевает отрабатывать внешняя программа Найти похожие ветки