Einzelnen Beitrag anzeigen

MrKnogge

Registriert seit: 9. Jun 2003
Ort: Pforzheim
2.458 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Bei external-Deklaration, konstantenausdruck erwartet

  Alt 12. Apr 2004, 18:32
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
Christian Bootz
Einstein ist tot, Newton ist tot,
und mir ist auch schon ganz schlecht...
  Mit Zitat antworten Zitat