eingebunde Resourcen abfragen (RCDATA)

[thomasschaf]

Könnte bitte jemand den Code mit Delphi kompilieren, mir die exe zukommen lassen (z.B. per Anhang hier im Forum).

Dann könnte ich überprüfen, ob ich die Resource richtig in das Programm reinschreibe.

Delphi-Quellcode:

function TForm1.GetResValue(resname: string): string;
var
  RS: TResourceStream;
begin
  try
    RS := TResourceStream.Create(hinstance, resname, RT_RCDATA);
    ShowMessage('(1)');
    SetString(Result, RS.Memory, RS.Size);
    ShowMessage('(2)');
    RS.Free;
    ShowMessage('(3)');
  except
    ShowMessage(SysErrorMessage(GetLastError));
    Result := '';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := GetResValue(Edit1.Text);
  if (s <> '') then
    ShowMessage(s);
end;

Vielen Dank