Tips (1541)

Tip Bewertung (2):

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;