Архив форумов ЦИТФорума

[mastertgtu]

сделал на Делфи прогу которая выполняет Дос команду. В цикле есть обращение к ping. Хочу чтобы следующее окно запустилось после выполнения текущего. А у меня идет все параллельно. Т.е. открываются сразу несколько окон.

[cesar]

Poprobuy sincronizirovat processi.

[Geo]

Как запускается консольное приложение?

[mastertgtu]

я использую 2 процедуры, а в Listboxе у меня хранится название доменов или сайтов.
пробовал через Timer.interval но не получается. что можно еще сделать?

procedure RunProgram(FileName:string);
var
PI:TProcessInformation;
SI:TStartupInfo;
const
dwFla gs:dword=CREATE_NEW_PROCESS_GROUP or CREATE_DEFAULT_ERROR_MODE;
begin
FillChar(si,sizeof(si),0) ;
fillchar(pi,sizeof(pi),0);
with si do
begin
cb:=sizeof(si);
dwFlags:=STARTF_USESHOWWINDOW;
wShowWindow:=SW_SHOWDEFAULT;
end;
CreateProcess(nil,PChar( FileName),nil,nil,false,
dwFlags,nil,nil,SI,PI);
closehand le(pi.hThread);
closehandle(pi.hProcess);
end;




pr ocedure TForm1.Button1Click(Sender: TObject);
var
s:string; i:integer;
SI: TStartupInfo;
PI: TProcessInformation;
begin
k:=listbox1.Items.Count;
label1.Caption := 'Количество сайтов:' + IntToStr(k);

for i:=0 to k-1 do
begin
s:='ping ' + Listbox1.Items[i];
RunProgram(s);
s:='';
end;

end;

[cesar]

Pri otkritii okna mojno dat parametr poxojih na "Close on exit."

[Johan]