FreePascal.ru

С правами – навряд ли. Программа выполняется от моего имени, а с правами там полный порядок .

Перепроверил (хотя, казалось, что уже так делал и отмёл этот вариант) с папками без русских путей – C:\1\arch.zip и C:\2\ – отработало нормально

Мне казалось, что в viewtopic.php?t=9259 описывается ...

Что бы не плодить темы без необходимости – спрошу в этой.
Такая программка (в двух словах – хочу скормить папку, в которую накачивается музыка с сервиса thankyou.ru в архивах, что бы программка вытащила музыку, разложила по папкам, поправила имена файлов и папок и id3 теги так, как мне удобно, я ...

В вашем коде подобной обработки не было Вот этот кусок: REPEAT
ReadLn(F2,S);
N:=N+1;
until EoF(F2);
Close(F2);
Append(F2);
For I:= 1 to N DO ReadLn(F1,S); Смотрится сколько уже записано во второй файл и отматывает до этой же отметки первый.

И вот это: WHILE NOT EoF(F1) DO BEGIN ...

Я код из батника планировал перетянуть в программу после отладки, ну да не суть, самого же батника я не оставлял.
Тут уж звиняйте, что в сообщении видел, о том и писал Детали. Не критично.

В целом понятно всё, кроме одного – как выходит, что он не будет дёргать батник «RDMCheckbat.bat» при каждом ...

Спасибо большое.
Так получилось, что сервис доработали и задача отпала, но всё-равно большое спасибо, наверняка конструкция «fmOpenRead or fmShareDenyNone» ещё где пригодится.
Батник я и сам пытался набросать, но уткнулся в массу мелочей, типа нетривиального нахождения изменившихся с последней ...

Спасибо огромное, очень интересно. Часть с FileCreate('C:RDMLogcopy_RDM[' + FormatDateTime('dd-mm-yyyy',Now) + '].log');
Assign(F1, 'C:RDMLogRDM[' + FormatDateTime('dd-mm-yyyy',Now) + '].log');
Assign(F2, 'C:RDMLogcopy_RDM[' + FormatDateTime('dd-mm-yyyy',Now ...

День добрый.

Возникла у меня задача – анализ работоспособности некоей службы, работающей на сервере. Служба собирает данные из нескольких источников и выдаёт их в виде xml, при этом при отказе она выглядит работающей – отдаёт последний получившийся xml и значится запущенной, единствнное, что нашёл ...

Спасибо огромное за помощь. Извините пожалуйста за такую паузу - на работе был аврал, пришлось отложить всё, что делалось до себя. А после того как разгрёб не приходило вдохновение. Вернее приходил ужас - когда я погонял простенький цикл типа for i:=1 to lenght(edit1.text) do showmessage ...

Я не программировал уже пару лет(с тех пор, как выяснилось, что пол-проекта, написанные для сдачи диплома дописать не так важно, как составить обалденный отчёт), но тут разговорившись с одним знакомым в сети я сказал, что сам напишу программку, которая будет решать некую задачку лучше, чем любой ...