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

Kernel32.dll в Win2k. Скрытие приложения при нажатии Ctrl+Alt+Del   Найти похожие ветки 

← →
zolotov   (2003-04-05 19:56) [0]

Ув. Мастера, подскажите пожалуйста такую вещь. Я хочу, чтобы приложения не было видно в диспетчере задач по нажатию Ctrl+Alt+Del. Пишу следующий код:

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall;
external "KERNEL32.DLL";

procedure TForm1.Button1Click(Sender: TObject);
begin
//Hide
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//Show
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 0);
end;

При запуске приложения выдается сообщение об ошибке:
Точка входа в процедуру RegisterServiceProcess не найдена в библиоткеке DLL KERNEL32.DLL

В чем здесь дело?
Причем, такое сообщение выскакивает и при запуске некоторых других программ. Например, я писал прогу на Delphi5, ОС Windows ME(98), чтобы форма была круглой, теперь установил Win2K и вот появился такой глюк.
Как это можно исправить?
Заранее благодарен.

---

← →
DrPass ©   (2003-04-05 20:14) [1]

Очень просто: функции RegisterServiceProcess действительно нет в Win2k, и чтобы прога там могла работать, ее нужно подгружать динамически через LoadLibrary/GetProcAddress. Естественно, о невидимости в этом случае речь не идет.
Невидимой прогу в Win2k сделать без громоздких хакерских методов невозможно.

---

← →
zolotov   (2003-04-05 20:27) [2]

Спасибо, а как подгружать через LoadLibrary/GetProcAddress? Желательно бы пример.
Спасибо.

---

← →
DrPass ©   (2003-04-05 20:53) [3]

В принципе, kernel32.dll даже не потребуется загружать, поэтому можно просто запросить ее дескриптор:
var
RSP = function (H: THandle; K: dword): dword; stdcall;

@RSP := GetProcAddress(GetModuleHandle(pchar("kernel32.dll")), pchar("RegisterServiceProcess"));
if assigned(@RSP) then RSP(0, 1);
для скрытия программы и
if assigned(@RSP) then RSP(0, 0);
для раскрытия

---

← →
zolotov   (2003-04-05 22:02) [4]

Спасибо

---

← →
Юрий Зотов ©   (2003-04-06 11:22) [5]

То есть, "функции RegisterServiceProcess действительно нет в Win2k", но если подгружать ее динамически, то можно подгрузить то, чего нет.

Тогда уж лучше сразу подгружать функцию HideMySuperPuperTrojan. Ее тоже нет, но если в одном случае динамическая загрузка помогает, то должна помочь и в другом.

---

← →
Polevi ©   (2003-04-06 19:10) [6]

какие открываются возможности !!!

---

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

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



Память: 0.46 MB
Время: 0.019 c