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;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour13/11/2001
VisualisationVu 741 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Systeme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur