Hallo zusammen,
meine Applikation soll beim Start den Bildschirmschoner austauschen.
Folgende Vorgehensweise funktioniert teilweise nicht (Der Dateiname wird korrekt ausgetauscht, der Eintrag der Aktivierungszeit erfolgt nicht). Nach der Ausführung des Codes ist auch in der Systemsteuerung kein Bildschirmschoner aktiviert.
procedure TForm1.Initialisierung(Sender: TObject);
var IniSchoner : TRegistry;
SysIni : TIniFile;
TimeOut : Integer;
begin
//---- Programdatei tauschen ----
SysIni:=TIniFile.Create('system.ini');
SysIni.WriteString('boot','SCRNSAVE.EXE',Verzeichn is+'\schoner.scr');
SysIni.Free;
//---- Werte für Schoner neu setzen -----
SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT,
TimeOut,
nil,
SPIF_SENDWININICHANGE);
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,
1,
nil,
SPIF_SENDWININICHANGE);
end;
Bin für jede Hilfe dankbar,
Christian Spengler
meine Applikation soll beim Start den Bildschirmschoner austauschen.
Folgende Vorgehensweise funktioniert teilweise nicht (Der Dateiname wird korrekt ausgetauscht, der Eintrag der Aktivierungszeit erfolgt nicht). Nach der Ausführung des Codes ist auch in der Systemsteuerung kein Bildschirmschoner aktiviert.
procedure TForm1.Initialisierung(Sender: TObject);
var IniSchoner : TRegistry;
SysIni : TIniFile;
TimeOut : Integer;
begin
//---- Programdatei tauschen ----
SysIni:=TIniFile.Create('system.ini');
SysIni.WriteString('boot','SCRNSAVE.EXE',Verzeichn is+'\schoner.scr');
SysIni.Free;
//---- Werte für Schoner neu setzen -----
SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT,
TimeOut,
nil,
SPIF_SENDWININICHANGE);
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,
1,
nil,
SPIF_SENDWININICHANGE);
end;
Bin für jede Hilfe dankbar,
Christian Spengler
Comment