1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);

  function FindExecutable(const FileName: String): String;
  var
    Buffer: array[0..MAX_PATH] of Char;
  begin
    if ShellAPI.FindExecutable(PChar(FileName), nil, Buffer) > 32 then
      Result := Buffer
    else
      Result := '';
  end;

begin

  ShowMessage(FindExecutable('C:\TEST.TXT'));

end;					

1:
2:

function AssocQueryString(Flags: Integer; Str: Integer; pszAssoc, pszExtra, pszOut: PChar;
  var pcchOut: DWORD): HRESULT; stdcall; external 'shlwapi.dll' name 'AssocQueryStringA';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function FindExecutable(const Extension: String): String;
const
  ASSOCF_NOTRUNCATE = $00000020;
  ASSOCSTR_EXECUTABLE = 2;
var
  BufSize: DWORD;
begin
  BufSize := MAX_PATH;
  SetLength(Result, BufSize);
  if AssocQueryString(ASSOCF_NOTRUNCATE, ASSOCSTR_EXECUTABLE, PChar(Extension), 'open',
  PChar(Result), BufSize) = S_OK then
    SetLength(Result, BufSize - 1)
  else
    Result := '';
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
begin

  // Ergebnis sollte unter einer Standard Windows XP Installation
  // "C:\WINDOWS\SYSTEM32\NOTEPAD.EXE" sein

  ShowMessage(FindExecutable('.txt'));

end;