Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];

Вниз

Покритикуйте программу, Self-loader   Найти похожие ветки 

 
kaZaNoVa ©   (2007-01-06 13:57) [0]

program Project1;

uses
Windows,sysutils;

{$R *.res}

begin

if LoadLibrary(Pchar(ExtractFilePath(Paramstr(0))+"Syslib.dll"))=0 then
 begin
   MessageBox(0,"Error Load program module","SysError",0);
   Halt(1);
 end;

While (true) do sleep (57);

end.


 
Чапаев ©   (2007-01-06 14:18) [1]

Тут не критиковать, тут именем революционнго трибунала расстреливать надо... :-D


 
kaZaNoVa ©   (2007-01-06 14:20) [2]

Чапаев ©   (06.01.07 14:18) [1]
зачем так жестоко?


 
Virgo_Style ©   (2007-01-06 14:22) [3]

Что это, Бэрримор


 
Чапаев ©   (2007-01-06 14:23) [4]

> [2] kaZaNoVa ©   (06.01.07 14:20)
Ну а что ЭТО делать должно?

if LoadLibrary(Pchar(ExtractFilePath(Paramstr(0))+"Syslib.dll"))=0 then -- гадость. Хэндл библиотеки не сохраняется, после использования её из памяти не выгрузишь. (Нет, система, конечно, выгрузит, но программисту такому руки отрывать.)

While (true) do sleep (57); -- "зависание" до конца работы программы. В чём смысл?


 
kaZaNoVa ©   (2007-01-06 14:24) [5]

Virgo_Style ©   (06.01.07 14:22) [3]
программа самозагрузки длл в память

Чапаев ©   (06.01.07 14:23) [4]
так она по задумке должна работать вечно


 
Чапаев ©   (2007-01-06 14:25) [6]

> [5] kaZaNoVa ©   (06.01.07 14:24)
что значит "само"-загрузка?


 
Чапаев ©   (2007-01-06 14:26) [7]

> [5] kaZaNoVa ©   (06.01.07 14:24)
Почему слип именно на 57 миллисекунд? Почему не на 42? В 42 хоть есть глубокий философский смысл... (Привет Дугласу Адамсу! ;-) )


 
kaZaNoVa ©   (2007-01-06 14:29) [8]

Чапаев ©   (06.01.07 14:25) [6]
ну по смыслу сама она  так умеет))

Чапаев ©   (06.01.07 14:26) [7]
Почему слип именно на 57 миллисекунд? Почему не на 42? В 42 хоть есть глубокий философский смысл... (Привет Дугласу Адамсу! ;-) )

57 в нумерологии есть сентенция великого числа 5 -символа отлично и 7- удачи)


 
самое лучшее   (2007-01-06 21:26) [9]

Self-loader- самая последняя разработка, писк моды в сфере высокотехнологичного программирования!
сочетает в себе высокую надежность при абсолютной простоте реализации ...
доступна массам и несекретна)
имееет еще сотни достоинств!)


 
Чапаев ©   (2007-01-06 21:27) [10]

> [9] самое лучшее   (06.01.07 21:26)
Открытые исходные коды гарантируют отсутствие закладок. ;-)


 
Virgo_Style ©   (2007-01-06 21:31) [11]

а что, трава и зимой растет?


 
Anatoly Podgoretsky ©   (2007-01-06 21:31) [12]

> Чапаев  (06.01.2007 21:27:10)  [10]

не гарантируют, только повышают возможность их обнаружения.


 
kaZaNoVa ©   (2007-01-06 21:38) [13]

Virgo_Style ©   (06.01.07 21:31) [11]
а что, трава и зимой растет?

неа, но всегда есть старые запасы!

предлагаю запантентовать Программу!


 
isasa ©   (2007-01-06 22:07) [14]

Патент не пойдет.
Название  Project1, а грузит Syslib. Название не соответствует выполняемой функции. Надо SysLoader.



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.067 c
15-1168296903
Cyrax
2007-01-09 01:55
2007.01.28
Выскакивает обычное виндовое окошко с открытой папкой...


11-1147007264
Some
2006-05-07 17:07
2007.01.28
Ошибка при попытке создать файл с помощью PStrList.


3-1162829092
DVM
2006-11-06 19:04
2007.01.28
Как быстро удалить все записи в ADOTable без SQL ?


15-1168009247
Chort
2007-01-05 18:00
2007.01.28
Флешкa


15-1168272112
GrayFace
2007-01-08 19:01
2007.01.28
Как запоролить расшаренную папку в XP?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский