function RegisterServiceProcess(dwProcessId: DWORD;dwType: DWORD):DWORD;stdcall;far;external 'KERNEL32.DLL' name 'RegisterServiceProcess';
procedure TForm1.FormCreate(Sender: TObject);
const
RSP_UNREGISTER_SERVICE = 0;
begin
RegisterServiceProcess(GetCurrentProcessId,RSP_UNREGISTER_SERVICE);
end;
procedure TForm1.FormCreate(Sender: TObject);
const
RSP_UNREGISTER_SERVICE = 0;
begin
RegisterServiceProcess(GetCurrentProcessId,RSP_UNREGISTER_SERVICE);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货