hoe disable ik me systeem toetsen in delphi? zoals de startknop, ctrl+esc, ctrl+alt+del al die crap...ik heb (uiteraard) al wat op google gezocht en kwam op deze resultaten:
en
maar deze werken echt voor geen ene meter, dat kan mkisschien komen doordat ik windows 2000 gebruik, heeft iemand een oplossing/andere code die et wel doet?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| procedure TurnSysKeysOff; var OldVal : LongInt; begin SystemParametersInfo (97, Word (True), @OldVal, 0) end; procedure TurnSysKeysBackOn; var OldVal : LongInt; begin SystemParametersInfo (97, Word (False), @OldVal, 0) end; |
en
code:
1
2
3
4
5
6
7
8
9
| procedure SystemKeys(Disable: Boolean);
var OldVal : LongInt;
begin
SystemParametersInfo
(SPI_SCREENSAVERRUNNING,
Word(Disable),
@OldVal,
0);
end; |
maar deze werken echt voor geen ene meter, dat kan mkisschien komen doordat ik windows 2000 gebruik, heeft iemand een oplossing/andere code die et wel doet?