Thema: Delphi ALT + F4 Ausschalten

Einzelnen Beitrag anzeigen

BenjaminHelbig

Registriert seit: 23. Okt 2003
Ort: Mannheim
80 Beiträge
 
Delphi 5 Professional
 
#24

Re: ALT + F4 Ausschalten

  Alt 8. Jun 2004, 10:40
Hi Leute,

hier der Code, den hab ich vor Ewigkeiten mal im Netz gefunden. Der funzt einwandfrei, hab ihn unter nt, 2000 und xp zum Laufen gebracht.
Code:
function RegisterServiceProcess(dwProcessID, dwType: DWord): DWord;stdcall;

function RegisterServiceProcess; external 'KERNEL32.DLL' name 'RegisterServiceProcess';
RegisterServiceProcess(0,1); //zum verstecken
RegisterServiceProcess(0,0); //zum anzeigen

Um den gesamten Taskmanager zu disablen bracuht ihr das hier. Aber ich muss ehrlich sein, im Sinne eines Multitasking OS ist das wohl nicht.
Code:
 
{Task-Manager disablen}
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,Nil,0);

{Task-Manager enablen}
SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,Nil,0);
Grüße aus Mannheim
--------
Es ist schon über so viele Dinge Gras gewachsen, dass ich keinem Rasen mehr traue.
  Mit Zitat antworten Zitat