Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не вызывается функция 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]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо