Screensaver Description auslesen

[marabu]

Hi Matti,

ich würde es so machen:

Delphi-Quellcode:

function LoadStrEx(instance, ident: Integer): String;
var
  buffer: array [0..1023] of char;
begin
  SetString(Result, Buffer,
    LoadString(instance, ident, buffer, sizeof(buffer)));
end;

procedure TDemoForm.FileListBoxDblClick(Sender: TObject);
const
  SCRSAVER_DISPLAYNAME = 1;
var
  h: THandle;
begin
  h := LoadLibrary(PChar(FileListBox.FileName));
  if Succeeded(h) then
  begin
    ShowMessage(LoadStrEx(h, SCRSAVER_DISPLAYNAME));
    FreeLibrary(h);
  end;
end;

Grüße vom marabu