Mit welcher Anwendung ist eine Datei verknüpft?

[Daniel B]

Hallo,

mit dieser Funktion, kann man herausfinden, mit welcher Anwendung eine Datei Verknüpft ist.
Hier die Funktion dazu:

Delphi-Quellcode:

function GetAppName(sFile: String): String;
var arrFile, arrPath, arrApp: Array [0..255] of Char;
begin
  StrPCopy(arrFile, sFile);
  arrPath := #0;
  arrApp := #0;
  FindExecutable(arrFile, arrPath, arrApp);
  Result := StrPas(arrApp);
end;

Der Aufruf könnte so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetAppName('c:\odbcconf.log'));
end;

Man übergibt also im Paramter die Datei samt ganzen Pfad und erhält dann eine Message mit dem Pfad und Namen der exe der Anwendung, mit welcher die gewünschte Datei verknüpft ist.

Grüsse, Daniel