Sti til exe bibliotek

ExtractFilePath(\'din fil.hej\');

/ZIRON

fx ExtractFilePath(Application.ExeName);

så får du din programs sti...

/ZIRON

som Ziron siger Application.ExeName, giver den fulde path og filnavn, og skal du lave en ini fil eller lign. samme sted kan jeg anbefale ChangeFileExt(Application.ExeName,\'.ini\')

Problemet er at jeg skal bruge stien fil f.eks info.txt der ligger i mit \"programkatalog\"; koden er en DLL, så Application.ExeName giver stien på det program, der kører mit program, der bruger min dll. Kan man få stien til sin dll ?

ExtractFilePath(\'min.dll\');

/ZIRON

hov, du må da vide hvor din dll fil ligger i forhold til dit program?

/ZIRON

Dll\'en ligger sammen med mit program. Programmet er bare skrevet i et basicsprog. Så jeg kan ikke direkte referere programmet fra Delphi dll\'en.
ExtractFilePath(\'min.dll\'); giver en tom string

ja men hvis du ved at din dll ligger i samme bibiolotek som din exe-fil ligger så er det bare at sige:

ExtractFilePath(Application.ExeName);

så ved du at din dll fil ligger i:

din_dll_fil_ligger := ExtractFilePath(Application.ExeName) + \'min.dll\';

/ZIRON

Nu ruller det vist, takker

du gør sådan :

var
  FN: array[0..MAX_PATH- 1] of char;
  DllPath : String;
begin
  SetString(DllPath, FN, GetModuleFileName(hInstance, FN, SizeOf(FN)));
  DllPath := ExtractFilePath(DllPath);
end;

det var da så lidt...

/ZIRON