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

Материал из DRKB

Получить установленный по умолчанию Screen Saver[править | править код]

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;


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