Screensaver Description auslesen

[turboPASCAL]

Wie kann man von einem Screensaver die Description auslesen ? also nicht nur den Namen der *.scr aus der Reg. fischen sondern den Namen den man mit {$D ...} angibt.

[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

[turboPASCAL]

Ja, danke das funktionert super.

Eigentlich habe ich angenommen das LoadString nur für recourcestring's brauchbar ist.

[Rastaman]

Zitat:

Zitat von turboPASCAL

Ja, danke das funktionert super.

Eigentlich habe ich angenommen das LoadString nur für recourcestring's brauchbar ist.

Der Name des Screensavers ist ja auch ein Resourcestring, aber er wird aus einer anderen Datei gelesen :zwinker:

[Christian Seehase]

Moin marabu,

wäre für diesen Anwendungsfall LoadLibraryEx mit LOAD_LIBRARY_AS_DATAFILE nicht sinnvoller?

[marabu]

Moin Chris,

da hast du allerdings Recht - auf den Initialisierungscode ist ja in diesem Fall keiner angewiesen.

Freundliche Grüße

marabu