Ctrl-alt-delete

har du icq .
mit icq 133378557

Du kan gøre som der står på denne side:

http://www.swissdelphicenter.ch/torry/showcode.php?id=48

Det virker i Windows 95/98/ME  men IKKE i Windows 2000/XP

Jeg ved ikke med NT, men jeg tvivler...

Og det kan IKKE lade sig gøre i 2000/XP

/SpEeDy

- sådan gør du:

const
SPI_SCREENSAVERRUNNING = 95;

Var
OldValue : Longbool;

//Slå til
SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(True), @OldValue,0);

//Slå fra
SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(False), @OldValue,0);

- ej, forkert. Det var SÅDAN:
Indsæt følgende sætninger, som en globale variable:

const
SPI_SCREENSAVERRUNNING = 95;

Var
OldValue : Longbool;

procedure On;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(True), @OldValue,0);
end;
procedure TForm1.Button1Click(sender : TObect);
begin
  SystemParametersInfo(SPI_SCREENSAVERRUNNING,    Word(False), @OldValue,0);
end;

- håber det kunne bruges....

CyberLSN

mulde2>>Hvorfor var det cyberlsn der skulle have point her ? Jeg svarede for det første 2 dage før cyberlsn, og hans svar er en næsten nøjagtig kopi af mit ?

/SpEeDy

Og det er IKKE fordi jeg er ude efter points, for jeg har sgu\' nok. Men jeg undrer mig bare over det.

/SpEeDy