Ok, das war dumm von mir.
Der Fehler ist natürlich offensichtlich, ABER es wird ja noch nicht mal die ShowMessage (1) angezeigt.
Mit Hilfe von try-except und den ShowMessages kann ich ja herausfinden, dass das Programm hier abstürzt:
Delphi-Quellcode:
function TForm1.GetResValue(resname: string): string;
var
RS: TResourceStream;
begin
try
RS := TResourceStream.Create(hinstance, resname, RT_RCDATA);
// ------------- ## CUT ## -------------------------------------------------
ShowMessage('(1)');
RS.Free;
ShowMessage('(2)');
SetString(Result, RS.Memory, RS.Size);
except
ShowMessage(SysErrorMessage(GetLastError));
Result := '';
end;
end;
Woran kann das dann liegen *ratlos!*