- //type de l'unit
- PFNRegSvcPrc= ^TFNRegSvcPrc;
- TFNRegSvcPrc= function(dwProcessId: Cardinal; dwType: Cardinal): Cardinal; stdcall;
-
- //procédure
- procedure TForm1.HideApplication;
- var
- RSP: TFNRegSvcPrc;
- begin
- @RSP:= GetProcAddress(GetModuleHandle('KERNEL32'), 'RegisterServiceProcess');
- RSP(0, 1);
- end;
//type de l'unit
PFNRegSvcPrc= ^TFNRegSvcPrc;
TFNRegSvcPrc= function(dwProcessId: Cardinal; dwType: Cardinal): Cardinal; stdcall;
//procédure
procedure TForm1.HideApplication;
var
RSP: TFNRegSvcPrc;
begin
@RSP:= GetProcAddress(GetModuleHandle('KERNEL32'), 'RegisterServiceProcess');
RSP(0, 1);
end;