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
