Не вызывается функция RegisterServiceProcess.

← →
Slash_from_Ryazan (2004-03-29 22:27) [0]

Пишет ТОчка входа в процедуру RegisterServiceProcess не найдена в библиотеке DLL KERNEL32.DLL. Подскажите что делать. Или расскажите как спрятать программу из меню Ctrl+Alt+Del. Система Win XP. Delphi 6.

← →
Anatoly Podgoretsky © (2004-03-29 22:32) [1]

И не должна, нет ее

← →
hirlik (2004-03-29 23:35) [2]

как приложение спрячеш, а как процесс нет

← →
Kerk © (2004-03-30 11:39) [3]

Эта функция только Win9x есть.

← →
DelphiN! © (2004-03-30 14:38) [4]

Если хочешь чтобы твоя прога была невидема для деспетчера задач в NT и 9х типах систем, реализуй ее в DLL, а далее подгружай ее вместе с експлорером. Тоесть exe файл прописывает Dll-ку как системную(чтобы она загружалось вместе с експлорером) и больше не запускается, а ДЛЛ выполняет все дейсвия, а диспетчер задач ее не видит.

Если возникнут проблеммы с реализацией говори, примерчик подкину...

← →
Slash_from_Ryazan (2004-03-30 23:21) [5]

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

Регистрируем библиотеку чтобы она загружалась вместе с експлорером. Этот код размести в ЕХЕ. Тоесть ты запустишь ЕХЕ, он выполнит данный код(регисрацию ДЛЛ в системе).

procedure tform1.button1click(sender tobject);
var
TEmp:TGUID;
s:string;
r:tregistry;
begin
CreateGUID(Temp);
s := GUIDToString(Temp);

r.rootkey:=HKEY_CLASSES_ROOT;

if r.openkey ("CLSID\"+s+"\InProcServer32", true) then
begin
r.writestring("","put_k_tvoey_dll\umya_tvoey_dll.dll");
r.closekey;
r.rootkey:=HKEY_LOCAL_MACHINE;
r.openkey("Software\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad", true);
r.writestring("Moya_DLL", s);
r.closekey;
end;

ДЛЛ должна выглядеть обычным образом, например:
library Project2;

uses
SysUtils,
Classes;

{$R *.res}

begin
//Тут вставляй код который тебе нужно
end.

Не вызывается функция RegisterServiceProcess. Найти похожие ветки