Ich habe mich in der Zwischenzeit mit dem Thema Resourcen sehr ausgiebig beschäftigt, trotzdem kann ich mir nicht erklären, warum die Resource nicht gefunden werden kann, aber mit einem anderen Programm (Resource Hacker) angezeigt werden kann.
Könnte jemand vielleicht mit Delphi folgenden Code compilen und die exe hier im Forum anhängen ?
Delphi-Quellcode:
function TForm1.GetResValue(resname: string): string;
var
RS: TResourceStream;
begin
try
RS := TResourceStream.Create(hinstance, resname, RT_RCDATA);
ShowMessage('(1)');
RS.Free;
ShowMessage('(2)');
SetString(Result, RS.Memory, RS.Size);
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;
mit folgenden Komponenten:
- Editfeld: "Edit1"
- Button: "Button1"
Dann könnte ich testen, ob es möglich ist, die Resource abzufragen, die ich in eine exe reinschreibe.
Grüße