Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
ВнизВ обычном приложении работает, а в консольном нет ... Найти похожие ветки
← →
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]Показать нам текст своего консольного приложения
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c