Как заказать сервисный процесс
Автор: Admin
WEB-сайт: http://forum.vingrad.ru
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 .
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как заказать сервисный процесс", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:
Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи , в сообщение обязательно указывайте название или ссылку на статью!