Ничего не пойму

← →
als © (2003-04-28 15:52) [0]

Уважаемые, извините чайника, но никак не могу я разобраться с ProgressBar. Запускаю из дельфи с помощью CreateProcess батник, затем с помошью Waitforsingleobject жду окончания процесса. Хотелось бы чтоб ProgressBar показывал состояние процесса, т.е. сколько осталось сколько прошло, вообщем как движется процесс :-)
Мне бы примерчик использования такого.

А вообще задача в том, чтоб по сети архивировать файлы на сервере. В сетке 24 компа будет (сеть будет изолированная), у каждого диск открыт по паролю (там windows 95 будет) а с сервера (там w2k Pro) с помошью формы архивировать определённые файлы, для каждого компа в свой каталог. Может кто нибудь по другому посоветует. Решил проста батником, батник цепляет сетевым диском диск компа, затем раром архивирует, и отключает сетевой диск.
Но при использовании рара могут возникнуть ошибки (сеть не доступна и т.д.) , то как это отловить в Дельфи?
Примерчик бы , а дальше я б разобрался :-)

Пишите лучше в мыло.

← →
Style © (2003-04-28 16:13) [1]

Хех.. :) Откудаж Винда знает чего тама в Батнике :)

Ну можно сделать так. через каждую строчку в батнике пиши
@echo n > proc где n -> прогресс твоего ProgressBar

@echo 1 > proc
net connect....
rar..
@echo 2 > proc
net connect....
rar..
@echo 3 > proc
net connect....
@echo 4 > proc
net connect....

@del proc

А в программе вместо Waitforsingleobject
var
hProcess: THandle;
ExitCode: dword;
str: TStringList;

str := TStringList.Create;
try
repeat
Application.ProcessMessages;

if(FileExists("proc")) then
begin
str.Clear;
str.LoadFromFile("proc");
ProgressBar.Progress := StrToInt(str.Strings[0]);
end;

until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
finally
str.Free;
end;

Ну незнаю в общем идея должна быть понятна...

Ничего не пойму Найти похожие ветки