L
lovesun
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
const RSP_SIMPLE_SERVICE=1;
var
myproc:TFarProc;
handle:THandle;
i:dword;
begin
handle:=LoadLibrary('KERNEL32.DLL');
myProc:=GetProcAddress(handle,'RegisterServiceProcess');
myProc(GetCurrentProcessID,RSP_SIMPLE_SERVICE);
form1.hide;
end;
const RSP_SIMPLE_SERVICE=1;
var
myproc:TFarProc;
handle:THandle;
i:dword;
begin
handle:=LoadLibrary('KERNEL32.DLL');
myProc:=GetProcAddress(handle,'RegisterServiceProcess');
myProc(GetCurrentProcessID,RSP_SIMPLE_SERVICE);
form1.hide;
end;