Hallo Hawkeye,
genau so funktioniert das ganze ... Die Sonderzeichen stellen kein Problem dar.
Delphi-Quellcode:
procedure _41;
begin
showMessage(')');
end;
exports
_41;
procedure TForm1.Button1Click(Sender: TObject);
var
proc : procedure;
c : Integer;
begin
c := ord(')');
proc := GetProcAddress(HInstance, PChar('_' + IntToStr(c)));
if Assigned(proc) then
proc
else
ShowMessage ('Prozedur für ")" existiert nicht!');
end;
Damit ist das Problem gelöst ...
Besten Dank nochmal an alle...
Grüsse Steve