Wie soll ich die abändern? (Darum geht es ja)
Kleines Beispiel von einem Sample von delphi.about.com alles mal copy/paste
function CircleArea(const radius : double) : double; external 'circle.dll';
dynamisch laden..
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
type
TCircleAreaFunc = function (const radius: double) : double; stdcall;
var
dllHandle : cardinal;
circleAreaFunc : TCircleAreaFunc;
begin
dllHandle := LoadLibrary('circle.dll');
if dllHandle <> 0 then
begin
@circleAreaFunc := GetProcAddress(dllHandle, 'CircleArea');
if Assigned (circleAreaFunc) then
ShowMessage('dynamic: ' + FormatFloat(',.00',circleAreaFunc(StrToFloat(Edit1.Text))))
else
ShowMessage('"CircleArea" function not found');
FreeLibrary(dllHandle);
end
else
begin
ShowMessage('circle.dll not found / not loaded');
end;
end;
dynamisch.. auch das teil verlangt nach der
DLL
da die Function CircleArea im Header diese erwartet.
wie soll ich das umgehen das der Compiler diese ignoriert und nicht mehr nach der
DLL sucht/Fragt.
gruss