Mega Code Archive

 

Categories / Delphi / System

 

Programin end task menusunde gorunmesini engellemek [ctrl-alt-del]

... implementation function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL'; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin // sakla RegisterServiceProcess(GetCurrentProcessID,1); end; procedure TForm1.Button2Click(Sender: TObject); begin // tekrar göster RegisterServiceProcess(GetCurrentProcessID,0); end;