Traduccion de función VB a delphi !!!

[Gydba]

Bunas,

Podrías fijarte en la web de Trucomanía o mismo en la búsqueda del foro puesto que lo que solicitás se ha tratado anteriormete.

Respondiendo tu inquitud de la API quedaría así:

Código Delphi [-]
uses
   windows,...;
...
var
   lParam : LontInt;
...
   lParam := 0;
   SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @lParam, 0);
...

Como verás es mucho más simple el trato de las APIs desde Delphi.

[Jan_polero]

Muchas gracias. Lo malo de esta función es que no funciona en NT.