В обычном приложении работает, а в консольном нет ...

← →
MikeFW (2003-01-24 14:28) [0]

Проблема такова - есть функция, которая запускает архиватор и ждет его завершение. Она работает.
Я перенес данную функцию в консольное приложение и архив стал выдавать ошибку. Точнее скорее всего он просто не успевает отработать. Как быть подскажите, пожалуйста?

Вот текст обычной функции
в консоли я удаляю из нее только две строчки (GetMACForm.WindowState:=wsMinimized; и
GetMACForm.WindowState:=wsNormal;)

procedure TGetMACForm.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;
GetMACForm.WindowState:=wsMinimized;

CreateProcess(nil,PChar("D:\Pkzip25.exe -add -dir save1.zip *.11"),nil,nil,false,
Create_default_error_mode,nil,nil,si,p);
//CreateProcess(nil,PChar("D:\MacZip\rar32.exe a -r "+Mac.Text+" d:\MacZip\*.wav"),nil,nil,false,
// Create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infinite);
GetMACForm.WindowState:=wsNormal;
end;

← →
han_malign © (2003-01-24 14:33) [1]

Что значит в консольном?
если {$APPTYPE CONCOLE} - то там принципиально никакие формы и окна работать не будут...

← →
MikeFW (2003-01-24 14:39) [2]

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

← →
han_malign © (2003-01-24 14:46) [3]

так же только без окон...

Program QQQ;
{$APPTYPE CONCOLE}
uses Windows;
var
si: TStartupInfo;
p: TProcessInformation;
begin
FillChar(Si,SizeOf(Si),0);
with Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Writeln("Start pkzip")
CreateProcess(nil,PChar("D:\Pkzip25.exe -add -dir save1.zip *.11"),nil,nil,false,
Create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infinite);
Writeln("Complete pkzip")
end;

← →
Reindeer Moss Eater (2003-01-24 14:46) [4]

Показать нам текст своего консольного приложения

В обычном приложении работает, а в консольном нет ... Найти похожие ветки