Бывают такие ситуации, что нужно удалить все файлы из какой-либо папки. Но Windows этого не даёт. Вот бы хорошо было, если бы он удалял не все файлы. а только те, которые может! Данная программа именно это и будет делать:

if Question('Удалить все файлы данной папки?')<>1 then Exit
Message('Введите число 3 если Вы так уверены')
if InputInteger('')<>3 then Exit

ShowConsole()

path0=''

procedure DelPath(path)
GetFiles(path, CountFiles, Names[], IsFiles[])
for i=0 to CountFiles-1 do begin
try
if IsFiles[i]=0 then begin
FileDelete(Names[i])
writeln(path+''+Names[i])
end
else begin
DelPath(path+''+Names[i])
end
except
end
end
if path<>global.path0 then begin try PathDelete(path) except end end
EndProcedure

PathSelect('', path0)
DelPath(path0)

Message('Готово!')



Вот ещё одна программка, для расчёта алкоголя в крови:

write('Ваш вес, кг: ') m=readlnfloat()
write('Алкоголь, %: ') a=readlnfloat()
write('Количество принятого (мл): ') k=readlnfloat()

p=(a/100*k/100)/(m/100)

pm = 1/0.7*p
pw = 1/0.6*p

hm = pm/0.1
hw = pw/0.1

writeln('За 1 час выводится где-то 0.15 промилле -- будем на всякий случай считать, что 0.1')
writeln('Промилле (если мужчина): '+floattostr(pm,2)+' ('+floattostr(hm,2)+' час.)')
writeln('Промилле (если женщина): '+floattostr(pw,2)+' ('+floattostr(hm,2)+' час.)')

pause()



Более сложные проекты, состоящие из нескольких сотен строк кода, публиковать не буду, т. к. это слишком сильно увеличит размер статьи.

http://free-world.me/blog/narod/ - мы пытаемся кое-что организовать, приглашаю! Лучше всё пояснит суть и цели Kolobok

Ему аукнется, конечно, но в целом систему не исправить. Мне ли не знать - сестра в Питере - майор милиции, убойник, шурин в Москве - нач. Бибиревского РУБОПа, двоюродная сестрёнка в Москве же - старший советник юстиции в Генпркуратуре. Иногда просто стыдно, хоть я и не мент.

Всё так - см. ссылку на их газету. СКП молчит, МВД негодует... Фразу «Наши сотрудники всегда делятся, а за крысятничество сами знаете, что мы делаем...» произнёс не зам. начальника, но так вполне могли подумать некоторые... Вспомни катастрофу в Перми.

Менты, конечно, в большинстве случаев, работают исключительно на себя, много гадостей творят, но чтоб мародёрствовать - такого я ещё не слышал.

Первый заместитель начальника УВД по Смоленской области, начальник криминальной милиции Николай Турбовец заявил: «Не имеет места ни факт задержания сотрудников смоленского ОМОНа, ни факт совершения сотрудниками правоохранительных органов каких-либо преступлений, связанных с их работой на месте катастрофы», – заявил он. «Наши сотрудники всегда делятся, а за крысятничество сами знаете, что мы делаем...»

- это из ряда вон!

Vechek, чтож, посмотрим.

Судя по вложенному в него баблу, да. По-моему, это действо ничуть не отличается от верблюжьих скачек...

Его шансы реальны?

ну как тут Задорнова не вспомнить? )))

Через Никитский переулок, мимо Института Европы. Или с него же через арку.

ужас,ужас..я даже не представляю, как буду пробираться в Университет на Моховую 07.05.09...там всё перекроют с утра и до вечера

Радуйся, комсомолец Миша (оставим в стороне полико-экономическую подоплёку), ныне "почётный лесоруб", а вообще, что-то пробило меня после прочтения на ностальгию:
1999 год, я, тогда ещё майор РА, вызван в стольный град Маськва на аттестационную комиссию, в одно из Управлений МинОбороны, цель и причина банальна - "чо с ним делать" (часть, где в то время служил была центрального подчинения, вот мной дядьки сильнозанятые думами о наших, Рассейских ВС, и занялясь, уделили мне убогому своё драгоценное.
Смысл, т. к. формально прикопаться было не к чему, решили расстаться со мной (срок действия контракта истекал в апреле 1999) по следующей причине "малая активность в коллективе" - это на бумаге, а на словах мне сказали: "ты же парень в коллективе не пьёшь". А ты M$ vs OSS, у нас чего "Папа" с кажет - так и будет.
PS по теме: с выходом RHEL5 имеет смысл не на 4.4 переходить, а на клон пятёрки, у centos уже на зеркалах лежит, значит и в продаже скоро будет.
PPS на моих серверах уже года три точно как скентифики крутятся (до этого RH 9), ставил 4.1 сейчас проапдейчены до 4.4