Installation af screensaver - haster!

Prøv at gå op og søg på borland.com, jeg mener der ligger nogle artikler om ScreenSaver i delphi

www.borland.com

du skal bare kopiere din fil ind i system bibloteket. Så er den i vinkel. Her er en lille function der kan give dig pathen på dit ayatem biblotek.

Function GetSystemDirectory : String;
begin
SetLength(Result, MAX_PATH);
Windows.GetSystemDirectory(PChar(Result),MAX_PATH);
SetLength(Result, Pred(Pos(#0,Result)));
end;



Jens B

Det er rigtigt nok, men hvordan får jeg sat min scr som den aktive? vel at mærke uden, at skulle ind i cotrol panel/display/screen saver?

prøv:

ShellExecute(Handle, \'OPEN\', PChar(\'rundll32.exe desk.cpl,InstallScreenSaver c:\\....\\myscreen.scr\'), nil, nil, SW_SHOW);

og du skal tilføje ShellAPI til uses.

hvis ikke det ovenfor virker så prøv:

ShellExecute(Handle, \'OPEN\', PChar(\'rundll32.exe\'), PChar(\'desk.cpl,InstallScreenSaver c:\\....\\myscreen.scr\'), nil, SW_SHOW);

og ShellAPI skal også med her....

/ZIRON