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