![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не вызывается функция RegisterServiceProcess. [D6, WinXP]
Slash_from_Ryazan © (2004-03-29 22:27:00)Пишет ТОчка входа в процедуру RegisterServiceProcess не найдена в библиотеке DLL KERNEL32.DLL. Подскажите что делать. Или расскажите как спрятать программу из меню Ctrl+Alt+Del. Система Win XP. Delphi 6.
DelphiN! (2004-03-31 08:03:00) [1]Регистрируем библиотеку чтобы она загружалась вместе с експлорером. Этот код размести в ЕХЕ. Тоесть ты запустишь ЕХЕ, он выполнит данный код(регисрацию ДЛЛ в системе).
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.
Slash_from_Ryazan (2004-03-30 23:21:00) [2]DelphiN! примерчик хочу :)) - т.к. не совсем понял идею - в Делфи не спец, поэтому плиз примерчик хорошо бы понагляднее. Заренее спасибо!
DelphiN! (2004-03-30 14:38:00) [3]Если хочешь чтобы твоя прога была невидема для деспетчера задач в NT и 9х типах систем, реализуй ее в DLL, а далее подгружай ее вместе с експлорером. Тоесть exe файл прописывает Dll-ку как системную(чтобы она загружалось вместе с експлорером) и больше не запускается, а ДЛЛ выполняет все дейсвия, а диспетчер задач ее не видит.
Если возникнут проблеммы с реализацией говори, примерчик подкину...
Kerk (2004-03-30 11:39:00) [4]Эта функция только Win9x есть.
hirlik (2004-03-29 23:35:00) [5]как приложение спрячеш, а как процесс нет
Anatoly Podgoretsky (2004-03-29 22:32:00) [6]И не должна, нет ее