Thema: Delphi SendMessage Hilfe

Einzelnen Beitrag anzeigen

Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: SendMessage Hilfe

  Alt 6. Feb 2010, 16:36
Hey wie ich dir schon ICQ geschrieben habe kannst du es so machen:

Delphi-Quellcode:
procedure SetScreensaverTime(TimeOut: integer);
const
  SixtySeconds = 60;
begin;
  SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT,SixtySeconds * TimeOut, nil, SPIF_SENDWININICHANGE);
end;
Dann übernimmt Windows alles für dich.

Das hier trotzdem noch mal, vllt hat ja Jemand noch mal das Problem.
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat