Pfad der eigenen Anwendung - ohne Application. Param...

[Black-Horse]

Application.Exename kannst du in dem fall verwenden

[Luckie]

Zitat:

Zitat von Black-Horse

Application.Exename kannst du in dem fall verwenden

Was keinen Unterschied macht, da Application.Exename auch nur ParamStr(0) aufruft. Mit ParamStr0) sollte man immer den Pafd der aufrufenden Exe-Datei bekommen, egal ob sie von einer anderen Anwendung gestartet wurde oder nicht.

[Olli]

Komplizierter wird es nur noch, wenn man die Situation hat, daß man den Pfad der DLL aus der aktuellen DLL haben will, man aber (weil bspw. ursprünglich aus einer Bibliothek stammend) hInstance (der DLL) nicht kennt, NULL nicht nutzen kann, GetModuleHandle(NULL) auch keinen Sinn macht. Die generischste und meines Erachtens nach beste Methode zum Ermitteln des Pfades des aktuellen Moduls (nicht der EXE selbst, sondern des Moduls in dem der Code ausgeführt wird) ist, eine statische Variable zu deklarieren (also nicht auf dem Stack ;)) und die Basisadresse des Moduls aus der Adresse dieser Variablen zu ermitteln. Alternativ zur statischen Variablen geht auch ein Pointer auf die aktuelle Funktion welche unten beschriebene beschriebene Methode implementiert.

Dazu wird VirtualQuery benutzt. Erster Parameter ist die Adresse der statischen Variablen. Zweiter Parameter ist ein Zeiger auf eine MEMORY_BASIC_INFORMATION-Struktur, deren Member "BaseAddress" nach dem (erfolgreichen) Aufruf von VirtualQuery nur noch in HMODULE/HINSTANCE gecastet werden muß und dann wirklich die korrekte Basisadresse enthält.

Delphi-Quellcode:

GetModuleFileName(HMODULE(mbi->BaseAddress), Puffer, Groesse);

[thule]

Ich habe mein Problem mit Hilfe des Prozessmanagements gelößt:

Delphi-Quellcode:

uses
  PSAPI, TlHelp32; 

function GetProcessExeName(hProcess: THandle): String;
var                                                                            
  ModuleEntry: TModuleEntry32;                                       
  hModuleEntry: THandle;                                                       
  ProcessId: Cardinal;
begin
  if hProcess = INVALID_HANDLE_VALUE then Exit;
  ProcessId := GetWindowThreadProcessId(hProcess);
  hModuleEntry := CreateToolHelp32Snapshot(TH32CS_SNAPMODULE, ProcessId);
  ModuleEntry.dwSize := SizeOf(TModuleEntry32);
  Module32First(hModuleEntry, ModuleEntry);
  Result := MOduleEntry.szExePath;
  CloseHandle(hModuleEntry);
end;   

//Bsp: 
 EXE_Dir_String := ExtractFilePath(GetProcessExeName(0));
//scheint gut zu functionieren.

Gruß

[SirThornberry]

@tn249: Warum darf es nicht Application.ExeName sein trotz dessen das du ExtractFilePath verwendest?

[sirius]

Zitat:

Zitat von SirThornberry

@tn249: Warum darf es nicht Application.ExeName sein trotz dessen das du ExtractFilePath verwendest?

Ob der nach 2,5 Jahren noch antwortet :gruebel:

[thule]

Zitat:

Zitat von SirThornberry

@tn249: Warum darf es nicht Application.ExeName sein trotz dessen das du ExtractFilePath verwendest?

Weil das "application" objekt in der forms-unit definiert ist?(kp) ^^

gruß.