Скачать: CL | DM;

Покритикуйте программу, 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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.034 c