Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007
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;

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