Toon posts:

[delphi]hoe disable ik me syskeys?

Pagina: 1
Acties:
  • 44 views sinds 30-01-2008

Verwijderd

Topicstarter
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:
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? :)

  • Soultaker
  • Registratie: September 2000
  • Laatst online: 09-09 11:02

Verwijderd

Topicstarter
ik zie een of ander los proggie, das nie wak nodig heb, ik heb een stukkie code nodig die ik gewoon in me proggie ken plakken, zodat die toetsen ge-disabled worden

  • Janoz
  • Registratie: Oktober 2000
  • Laatst online: 09-09 20:58

Janoz

Moderator Devschuur®

!litemod

"Download the code for this article: Win320700.exe (79KB)" is engels voor "haal de sourcecode die in dit artikel gebruikt worden op".. Hoezo progje?? Je mag wel iets doen hoor (bijvoorbeeld engels lezen :) ).. Daarnaast zakt dit af naar een script request...

Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'


Dit topic is gesloten.