Zitat von
Christian Seehase:
Moin MrKnogge,
wie wär's denn mit ein klein wenig Sourcecode?
Aber sicher doch:
Anwenung:
Delphi-Quellcode:
...
function GetZahl: PInteger;
begin
result := @Zahl;
end;
exports
GetZahlUser,
DLL:
Delphi-Quellcode:
...
function GetITDirectory(): string;
var
path: string;
begin
path := ExtractFilePath(ParamStr(0));
path := Copy(path,0,length(path)-1);
while path[length(path)] <> '\' do
path := Copy(path,0,length(path)-1);
end;
function GetZahl: PInteger; external GetITDirectory + MeinProgramm.exe;
...
Mit GetITDirectory möchte ich das übergeordnete Verzeichniss herrausbekommen, beispiel:
Diese Datei:
C:\Programme\MeinProgramm\PlugIns\MeinPlugIn.dll
braucht diese:
C:\Programme\MeinProgramm\MeinProgramm.exe