Hi Steve,
hier ist eine kleine technische Spielerei:
Delphi-Quellcode:
procedure A;
begin
ShowMessage ('A');
end;
procedure B;
begin
ShowMessage ('B');
end;
procedure C;
begin
ShowMessage ('C');
end;
exports
A, B, C;
procedure TForm1.Button1Click(Sender: TObject);
var
proc : procedure;
begin
proc := GetProcAddress(HInstance, PChar(Edit1.Text));
if Assigned(proc) then
proc
else
ShowMessage ('Prozedur "' + Edit1.Text + '" existiert nicht!');
end;
Hast du dir eigentlich schon überlegt, wie du Sonderzeichen ('$', '(',...) behandeln möchtest?
Gruß Hawkeye