Datei/Programmnamen anzeigen

[endeffects]

hallo,

die Frage wurde sicher schon einige Male gestellt,
aber ich bin mit der Suchfunktion nicht fündig geworden.
Ich möchte in meinem Programm den Dateinamen der .exe ermitteln,
kann mir vielleicht Jemand sagen wie ich das anstellen kann?

[Nothine]

Delphi-Quellcode:

  DoSomethingWith(Application.ExeName);
  //falls du mich missverstehst, Application.ExeName is das was du suchst ;)

z.B.

[endeffects]

oh danke =)

weißt du ob man soetwas auch für dll's machen kann?

[Nothine]

Delphi-Quellcode:

ParamStr(0)

sollte funktionieren

obwohl du dann wahrscheinlich diverseste resultate bekommen wirst so wie ich das mit dem speichermanagement von dll's verstanden habe...

[endeffects]

hallo, danke für deine hilfe,
showmessage(ParamStr(0));
bringt leider nur die host anwendung,
dann werd ich das wohl als konstante einbetten.


schönes we noch =)

[Nothine]

ebenso :)

[Luckie]

GetModuleFilename sollte funktionieren.

[endeffects]

hallo,

danke ersteinmal für die hilfe,
ich hab dazu nun folgende funktion im forum gefunden:

Delphi-Quellcode:

function TIEHelperOP.ShowDllPath: String; stdcall;
var
  TheFileName : array[0..MAX_PATH] of char;
begin
  FillChar(TheFileName, sizeof(TheFileName), #0);
  GetModuleFileName(hInstance, TheFileName, sizeof(TheFileName));
  Result := TheFileName;
end;

diese liefert den vollständigen pfad inkl der dll zurück,
da ich die funktion nicht vollständig nachvollziehn kann
würde mich interessieren ob es hier auch möglich nur den
dateinamen anzuzeigen? oder muss ich diesen über pos/copy
extrahieren?

[CalganX]

Hi,
das ist ganz einfach per ExtractFileName zu erledigen. ;)

Chris

[Nothine]

dafür gäbs zum beispiel die funktion ExtractFileName

// Edit: Mist zu spät :roll: