Connaitre le nom de l'écran de veille actuel

Uses In if iles, ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
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;
var
Ini:TIn if ile;
ScreenSaverFile:string;

begin
Ini:=TIn if ile.Create('system.ini');
ScreenSaverFile:=GetLongFileName(Ini.ReadString('boot','SCRNSAVE.EXE','Not
Available'));
Ini.Free;
Label1.Caption:=ScreenSaverFile;
end;