Есть авторы крутых прог?

← →
Dmitriy O. © (2004-11-03 15:52) [40]

Удалено модератором
Примечание: Дубль

← →
syte_ser78 © (2004-11-03 16:52) [41]

> case a of
> "1": - вызов функции из этого же pas-a
> "2": - вызов процедуры из другого паса
> end;
> Вот так должно работать.

:)))))))))))))
Я нашол ошибку. дело было не в недостающих двоеточиях и энде :)
просто процедуры из другого паса были без циклов, иф-ов и переходов.

← →
syte_ser78 © (2004-11-03 16:58) [42]

было бы неплохо указывать места возниковения бесконечных циклов

← →
Юрий Зотов © (2004-11-03 17:11) [43]

> Роман (02.11.04 21:11)

Вот теперь, после прочтения [31]-[42], на Ваш вопрос "Есть авторы крутых прог?" можно уверенно ответить - есть!

← →
Digitman © (2004-11-03 17:50) [44]

написан .. прямо на глаз.

редкимй глаз выдержит такое издевательство.

хотя ... мало ли мазохистов)

← →
TUser © (2004-11-03 17:56) [45]

Надо признать, что топик интересный - вы делайте крутые проги, а я вставлю туда свои банеры. На чай автору софта чего-нибудь останется?

← →
Digitman © (2004-11-03 17:57) [46]

> особые случаи может не обрабатывать

"особые" - читай "любые", которые не пришли в светлейшую голову Дмитрийолегычу, даже не сподобившегося перед сотворением Автошемы проштудировать от корки до корки правила Обжект-Паскаля.

← →
oldman © (2004-11-03 18:01) [47]

Имхо, за клик по банеру платят денюжки, если клик пришел с определенного сайта... Того, где баннер размещен.
А за выход на сайт с непонятного компа никто не получит ни копейки.
ИМХО!

← →
Digitman © (2004-11-03 18:03) [48]

Лозунги дня :
- Даешь рекламный баннер "Автошема" ! В любой мало-мальски посещаемой суб-дыре Всемирной Дыры !
- "Заколоти бабло" на рекламе "Автошемы" во Всемирной дыре ! Не заколотил еще ? Спеши ! Ибо кто не успел, тот опоздал !

← →
Digitman © (2004-11-03 18:07) [49]

> нужны стоящие

.. а так же сидящие и лежащие

> Роман

Рома ! Тебе - к Боцману...

← →
peypivo © (2004-11-03 19:34) [50]

Не понимаю чего вы к Dmitriy O. прицепились. Насколько я знаю аналогов ведь нет? Или я ошибаюсь?

← →
mike-d © (2004-11-03 19:41) [51]

> Dmitriy O. © (03.11.04 15:52) [39]

к хирургу...

← →
Delphin © (2004-11-03 19:52) [52]

Ну хватит уже на Dmitry.O наезжать, программа его весьма полезная, сам пользуюсь :)

← →
ИМХО © (2004-11-03 20:34) [53]

"Руки прочь от Dmitriy O.!"

← →
cyborg © (2004-11-03 22:31) [54]

"Руки прочь от Dmitriy O.!" V.1.0

← →
syte_ser78 © (2004-11-04 09:03) [55]

А серьезно, чего в этой проге такого смешного что ее так часто вспоминают? Или просто это скрытая реклама?
Или может завидуют?

Со своей задачей программа справляется. жаль только что весь пас проанализировать не может, а лишь попроцедурно

← →
ИМХО © (2004-11-04 09:08) [56]

> cyborg © (03.11.04 22:31) [54]
> "Руки прочь от Dmitriy O.!" V.1.0

LOL

← →
TUser © (2004-11-04 10:52) [57]

> А серьезно, чего в этой проге такого смешного что ее так
> часто вспоминают? Или просто это скрытая реклама?
> Или может завидуют?

Наверное, Ваш стиль оформления кода не столь эксклюзивен, как у большинства форумчан. Попробуйте загнять туда например VCL - и Вы не будуте считать, что Со своей задачей программа справляется

← →
Dmitriy O. © (2004-11-04 11:44) [58]

> Или может завидуют?

Однозначно.
> Попробуйте загнять туда например VCL

Как раз обрабатывает в большинстве случаев нормально.

← →
Vovchik_A © (2004-11-04 12:03) [59]

2Dmitriy O. © (04.11.04 11:44) [58]

> Или может завидуют?

Однозначно.

Дима, срочно к Ломброзо - ДНК править. Ну... И руки можно заодно, если он возьмется...

← →
syte_ser78 © (2004-11-04 12:10) [60]

а мою прогу на суд общественности можно вынести?

← →
syte_ser78 © (2004-11-04 12:11) [61]

http://www.sergey.h1.ru/download

← →
Danilka © (2004-11-04 12:13) [62]

[61] syte_ser78 © (04.11.04 12:11)
Ой что-то страшно. Вдруг она решит, что у меня все файлы "мусорные". :))
Уж лучше я сам, ручками..

← →
syte_ser78 © (2004-11-04 12:18) [63]

она по маске решает

← →
syte_ser78 © (2004-11-04 12:19) [64]

и создает бат-файл который можно подредактирвоать. Сама не удаляет ничего.
Скорость сканирования намного выше чем у аналогов

← →
Dmitriy O. © (2004-11-04 12:21) [65]

Вобще что такое мусор ? Т.е. есть ли научное определение электронного мусора ?

← →
syte_ser78 © (2004-11-04 12:23) [66]

В моем случае это временные файлы, копии, и т.д. которые не были подтерты в ходе работы других программ. Тоесть бестолку занятое место которое можно бесболезненно занять под чтото более полезное.

← →
syte_ser78 © (2004-11-04 12:27) [67]

К стати - ответ автору топика.
Дописываю программу "СверКеш-атор"
Описание программы - браузер сохраняющий посещенные страници. При повторном вводе адреса он грузится с винта.
Могу втулить банер.
Только он тоже прокешируется и для того чтобы кличество показов щелкало его нужно будет периодически "обновлять" :)

← →
Dmitriy O. © (2004-11-04 12:30) [68]

Виндоза 98 часто оставляла такой мусор и приходилоси переодически чистить ручками. А вот NT уже такого не допускает
даже при аварийном завершении работы. И потом ф-ция очиски диска роботает хорошо все тмп файлы убирает. Да и при том какое значение при современных обьмах диска будут иметь пару тройку мег случайно не потертых файлов тмп. Настоящий мусор это тот который скапливается во время работы всякие Вордовские и Эксель файлы презентации картинки для презентации и проч. Вот они весят гигабайты (У меня папка "Мои документы"- 1 гиг) Но тут уже только ручками и желательно только в архив.

я прошу заценить не идею а реализацию

> не идею а реализацию

Тогда давай исходники.

Могу и исходник дать.
Сюда писать?

Uses Crt,DOS,Sergey,MusText; //Sergey и Mustext - мои библиотеки
Var i:integer;
NML:Integer; //Счетчик файлов которые нельзя удалять!!!
Vibor_deystviya:Char;
F,filter_ini:text;
filter:string;
Kolvo_musora:integer;
Drive_for_work:Char; //Диск который чистим. По умолчанию - С
Dir_for_work:string; //Папка которую чистим
Laptop_Text:integer;
Laptop_background:integer;
Laptop_symbol:Char;

Dir_Drive:String;

Const
Kolvo_Ext_NoMusor=1;
TC=Yellow; //Цвет тектса в окне
BC=Blue; //Цвет окна
//Маски немусорных файлов. Файлы которые "мусорные" но удалять их низя!!!
Not_Musor_list: array[1..Kolvo_Ext_NoMusor] of string =
("DATA.BAK");
Filter_File="filter.ini"; //Файл в котором храним мусорные маски файлов
Clear_File="clear.bat"; //Батник для записи команд на удаление
version="0.3.0.1"; //Версия программы

Procedure PrintFiles(path,mask:string);
var sr:searchrec;
begin
findfirst(path+mask,anyfile-directory,sr);
while doserror=0 do begin
for NML:=1 to Kolvo_Ext_NoMusor do
begin
if sr.name<>Not_Musor_List[NML] then
begin
writeln(path+sr.name);
writeln(F,"attrib -r -a -s -h "",path+sr.name,""");
writeln(F,"del "",path+sr.name,""");
Kolvo_musora:=Kolvo_musora+1;
end;
end;
findnext(sr);
end;
end;

Procedure SearchFiles(path,mask:string);
var sr:searchrec;

begin
PrintFiles(path,mask);
findfirst(path+"*.*",anyfile,sr);
while doserror=0 do begin
if (sr.attr and directory=directory) and
(sr.name<>".") and (sr.name<>"..") then
SearchFiles(path+sr.name+"\",mask);
findnext(sr);
end;
end;

Procedure menu;
begin
Window_my(20,5,40,14,TC,BC);
TextColor(White);
WriteLn (" ИРЁНКА (",version,")");
TextColor(TC);
WriteLn;
WriteLn (" 1 - Помощь");
WriteLn (" 2 - Выбор диска");
WriteLn (" 3 - Поиск мусора");
WriteLn (" 4 - Выход");
WriteLn (" 5 - О программе...");
WriteLn (" 8 - Выбор папки");
WriteLn (" 0 - Главное меню");
end;

procedure Vibor_diska;
begin
Window_my(10,5,60,3,TC,BC);
Write (" Введите имя диска который хотите почистить: ");
CursorOn;
ReadLn(Drive_for_work);
CursorOff;
menu;
end;

procedure Vibor_papki;
begin
Window_my(10,5,60,3,TC,BC);
Write (" Укажите папку в которой будем искать "мусор": ");
CursorOn;
ReadLn(Dir_for_work);
CursorOff;
menu;
end;

Procedure Search_musor(dir_drive:string);
var
time_sec:longint;
h, m, s, hund : Word;
h2, m2, s2, hund2 : Word;
begin
GetTime(h,m,s,hund);

Window_my(3,2,75,21,TC,BC);
Assign(filter_ini,Filter_File);
reset(filter_ini);
if dir_drive="drive"then
begin
while not Eof(filter_ini) do
begin
Readln(filter_ini,filter);
SearchFiles(Drive_for_work+":\",filter);
end;
end;
if dir_drive="dir"then
begin
while not Eof(filter_ini) do
begin
Readln(filter_ini,filter);
SearchFiles(Dir_for_work+"\",filter);
end;
end;
Close(filter_ini);
TextColor(LightRed);
GetTime(h2,m2,s2,hund2);
time_sec:=(h2-h)*3600+(m2-m)*60+(s2-s);
Writeln("Найдено ",Kolvo_musora," мусорных файлов");
Writeln("На поиск мусора затрачено - ",time_sec," секунд");
Writeln("Готово!!! Нажмите любую кнопку!!!");
TextColor(TC);
Repeat
Until Keypressed;
end;

Procedure Init;
begin
clrscr;
fullscreen;
laptop(laptop_text,laptop_background);
CursorOff;
menu;
end;

Procedure main;
begin
repeat
if keypressed then
begin
case ReadKey of
"1": begin
fullscreen;
Laptop(laptop_text,laptop_background);
Help(TC,BC);
repeat;
until keypressed;
Init;
end;
"2": begin
fullscreen;
Laptop(laptop_text,laptop_background);
vibor_diska;
fullscreen;
Laptop(laptop_text,laptop_background);
menu;
dir_drive:="drive";
end;
"3": begin
Kolvo_musora:=0;
fullscreen;
Laptop(laptop_text,laptop_background);
Search_musor(dir_drive);
fullscreen;
Laptop(laptop_text,laptop_background);
menu;
end;
"5": begin
fullscreen;
Laptop(laptop_text,laptop_background);
About(TC,BC,version);
repeat;
until keypressed;
Init;
end;
"0": begin
fullscreen;
laptop(laptop_text,laptop_background);
menu;
end;
"4": break;
"8": begin
fullscreen;
Laptop(laptop_text,laptop_background);
vibor_papki;
fullscreen;
Laptop(laptop_text,laptop_background);
menu;
dir_drive:="dir";
end;
end;
end;
fullscreen;
Show_Time(72,25);
GotoXY(46,25);
TextColor(LightBlue);
TextBackGround(LightGray);
Write("| Активный диск - ",UpCase(Drive_for_work)," |");
until (Vibor_deystviya="4");
end;

begin
Laptop_Text:=52; //цвет текста лаптопа
Laptop_background:=3; // цвет фона лаптопа
Laptop_symbol:="-";
Drive_for_work:="c"; //по умолчанию чистим С
Assign(F, Clear_File);
ReWrite(F);
Init;
main;
Close(F);
end.

syte_ser78 © (04.11.04 9:03) [55]
А серьезно, чего в этой проге такого смешного что ее так часто вспоминают?
Ты посмотри на её исходники :)) Да и наверное не вспоминали бы так если бы не её автор :)) Индивид каких больше не бывает. =)))

> Procedure SearchFiles(path,mask:string);
> var sr:searchrec;
>
> begin
> PrintFiles(path,mask);
> findfirst(path+"*.*",anyfile,sr);
> while doserror=0 do begin
> if (sr.attr and directory=directory) and
> (sr.name<>".") and (sr.name<>"..") then
> SearchFiles(path+sr.name+"\",mask);
> findnext(sr);
> end;
> end;

Извини, но я у себя такое не запущу. Да и не заработает, наверное - где описаны anyfile и directory?

> Извини, но я у себя такое не запущу. Да и не заработает,
> наверное - где описаны anyfile и directory?

В библиотее DOS
....
These constants test, set, and clear
file-attribute bits in connection with the
GetFAttr, SetFAttr, FindFirst, and FindNext
procedures.

These constants are additive. The faAnyFile
constant is the sum of all attributes.

DosConstant Value
ReadOnly $01
Hidden $02
SysFile $04
VolumeID $08
Directory $10
Archive $20
AnyFile $3F

1. что есть Yellow ? Я зная только clYellow.
2. что за цвет Laptop_Text:=52 ? Типа, догадайся сам ?
3. что такое while doserror=0 do begin ? Неужели функции findfirst не достаточно ?

Это так, бросив взгляд...:)

> Я зная только clYellow.

А я только faAnyFile, faDirectory

И FindClose потерялся.

Johnmen © (04.11.04 13:59) [77]
TUser © (04.11.04 14:04) [78]

Так программа не на Delphi и не для Win32

> Uses Crt,DOS

> 1. что есть Yellow ? Я зная только clYellow.

Yellow - жолтый.
Программа написана на turbo pascal 7.0/ Работает в текстовом режиме.

> 2. что за цвет Laptop_Text:=52 ? Типа, догадайся сам ?

Скен код символа из которого состоит заполнение рабочего стола равен 52

> 3. что такое while doserror=0 do begin ? Неужели функции
> findfirst не достаточно ?

???

Есть авторы крутых прог? Найти похожие ветки