Bei external-Deklaration, konstantenausdruck erwartet

[MrKnogge]

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