Hallo,
Weet iemand (de code) hoe van de control + alt + delete kunt overnemen,
van het systeem?
Grtzz Kuntao
Hallo,
Weet iemand (de code) hoe van de control + alt + delete kunt overnemen,
van het systeem?
Grtzz Kuntao
Hierbij wat voobeeldjes
En mischien is de oplossing wel zo eenvoudig dat het het volgende moet wezen.Code:procedure TForm1.Button1Click(Sender: TObject); begin {Controleer of de SHIFT toets ingedrukt is} if HiWord(GetKeyState(VK_SHIFT)) <> 0 then ShowMessage('SHIFT ingedrukt!'); end; procedure TForm1.Button1Click(Sender: TObject); begin {Controleer of de CONTROL toets ingedrukt is} if HiWord(GetKeyState(VK_CONTROL)) <> 0 then ShowMessage('CONTROL ingedrukt!'); end; procedure TForm1.Button1Click(Sender: TObject); begin {Controleer of de ALT-toets ingedrukt is} if HiWord(GetKeyState(VK_MENU)) <> 0 then ShowMessage('ALT-toets ingedrukt!'); end;
Heb niet getest maar klinkt wel logisch.
Garantie tot de voordeur he.Code:if HiWord(GetKeyState(VK_MENU)) and HiWord(GetKeyState(VK_CONTROL)) and HiWord(GetKeyState(VK_SHIFT)) <> 0 then ShowMessage('CTRL+ALT+DEL-toets ingedrukt!');
Veel succes.
RLD
He te gek zeg,
Meteen de code erbij ,
THNX
Grtzz Kuntao
Gewoon een korte opmerking:
Ctrl-Alt-Del afvangen werkt in ieder geval niet in Windows NT en Windows 2000.
Marco Hemmes
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks