Получить установленный по умолчанию Screen Saver

Previous  Top  Next

    
 

 

Code:

uses

  Inifiles, ShellApi;

 

procedure TForm1.Button1Click(Sender: TObject);

var

  Ini: TInifile;

  ScreenSaverFile: string;

 

     function GetLongFileName(const FileName: string): string;

  var

    aInfo: TSHFileInfo;

  begin

    if SHGetFileInfo(PChar(FileName), 0, aInfo, SizeOf(aInfo), SHGFI_DISPLAYNAME) <> 0 then

      Result := string(aInfo.szDisplayName)

    else

      Result := FileName;

  end;

 

     begin

  Ini := TInifile.Create('system.ini');

  ScreenSaverFile := GetLongFileName(Ini.Readstring('boot', 'SCRNSAVE.EXE', 'Not Available'));

  Ini.Free;

  label1.Caption := ScreenSaverFile;

end;

 

 

©Drkb::02383

Взято с сайта: http://www.swissdelphicenter.ch