Jak uruchomić wygaszacz ekranu
Adam Boduch
program RunScr;
uses
Forms, Windows, Messages;
{$R *.res}
begin
Application.Initialize;
Application.Run;
SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
end.
program RunScr;
uses
Forms, Windows, Messages;
{$R *.res}
begin
Application.Initialize;
Application.Run;
SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
end.
wszystko pieknie dzila,
p.s pod Xp nieweim jak pod innymi
Nie dziala... :|