VPF::Точка входа RegisterServiceProcess - Форум программистов

In0stRAnez

Дата 4.10.2009, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 30.3.2008

Репутация: нет
Всего: нет

Код


unit Stealth; 
interface 
uses 
WinTypes, WinProcs, Classes, Forms, SysUtils, Controls, Messages; 
type 
 TStealth = class(TComponent)  
 
  
 private  
 
  
 fHideApp: Boolean;  
 
 procedure SetHideApp(Value: Boolean);  
 
 protected  
 
 { Protected declarations }  
 
 procedure HideApplication;  
 
 procedure ShowApplication;  
 
  
 public  
 
  
 { Public declarations }  
 
 constructor Create(AOwner: TComponent); override;  
 
 destructor Destroy; override;  
 
 // procedure Loaded; override;  
 
  
 published  
 
  
 { Published declarations }  
 
 property HideApp: Boolean read fHideApp write SetHideApp default false;  
 
  
 end;  
 
  
 
  
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL'; 
procedure Register; 
implementation 
destructor TStealth.Destroy; 
begin 
 ShowApplication;  
 
 inherited destroy;  
 
  
end; 
constructor TStealth.Create(AOwner: TComponent); 
begin 
 inherited Create(AOwner);  
 
 // fHideform := true;  
 
  
end; 
procedure TStealth.SetHideApp(Value: Boolean); 
begin 
 fHideApp := Value;  
 
 if Value then HideApplication else ShowApplication;  
 
  
end; 
procedure TStealth.HideApplication; 
begin 
 if not (csDesigning in ComponentState) then  
 
  
 RegisterServiceProcess(GetCurrentProcessID, 1);  
 
  
end; 
procedure TStealth.ShowApplication; 
begin 
 if not (csDesigning in ComponentState) then  
 
 RegisterServiceProcess(GetCurrentProcessID, 0);  
 
  
end; 
procedure Register; 
begin 
 RegisterComponents('My', [TStealth]);  
 
  
end; 
end.

Сохраняю это всё дело в unit c названием стелс...
начинаю устанавливать компонент...
пишет вот это..

Заголовок Delphi 7 : delphi32.exe - Точка входа не нйдена

Точка входа в процедуру RegisterServiceProcess не найдена в библиотеке DLL KERNEL32.DLL.

помогите решить очень вжно!

bems

Дата 4.10.2009, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

!
bems

Название темы должно отражать её суть!

Функция RegisterServiceProcess недоступна в NT-системах (и их наследниках - 2000, ХР, Vista, Seven + плюс серверные аналоги), где есть настоящая поддержка сервисов. Её действительно нет в указанной DLL.
И прятать от юзера процесс нехорошо.

--------------------

Обижено школьников: 8

In0stRAnez

Дата 4.10.2009, 18:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 30.3.2008

Репутация: нет
Всего: нет

а аналоги есть)?

bems

Дата 4.10.2009, 22:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Функций, скрывающих процесс от пользователя нет. Есть решения, которые не сводятся к одному вызову функции. Их можно найти если воспользоваться поиском.

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »