Bildschirmschoner Starten

[The-X]

hier ist 'n kleines Programm von mir was einfach nur den Bildschirmschoner startet exe im Anhang

Delphi-Quellcode:

Program LaunchSaver;
{$D Launch ScreenSaver Tool}
Uses ShellApi, Windows;
var S:array[0..MAX_PATH+1]of char;l:integer;h:string;

function GetWinDir:string; var Buffer: Array[0..MAX_PATH+1] of Char;
begin GetWindowsDirectory(Buffer,MAX_PATH+1);result:=String(Buffer);end;

begin
h:=GetWinDir;if h[length(h)]<>'\' Then h:=h+'\';h:=h+'SYSTEM.INI';
l:=GetprivateprofileString('boot','SCRNSAVE.EXE','',S,Max_Path,Pchar(h));
if l=0 then messagebox(getactivewindow,'Bildschirmschoner nicht aktiv!','Run Screensaver: Fehler',MB_ICONERROR) else
shellexecute(0,'open',S,'/S','',SW_SHOWNORMAL);
end.

allerding zur Zeit nur W9x ? (wegen System.ini)

[edit]Echse vergessen [/edit]