Извлечь путь из EXE

[NeiL]

Добрый вечер господа. Интересует вопрос: можно ли, зная только имя файла, каким-нибудь способом определить где он лежит в системе (есть догадки что надо рыться в реестре).

[FaTaL]

Только поиском по диску. Ведь не все файлы прописываются в реестре!
FindFirst, FindNext тебе в помощь.

[mutabor]

Судя по тому, что автор хочет рыть в реестре, ему нужно определить куда установлена определенная программа, и установлена ли вообще.
Верно, искать нужно в реестре. Вопрос обсуждался, в поиск.

Если программа не требует установки, в реестре ее не будет, тогда поиск по диску.

Автору: изъясняйтесь понятнее.

[NeiL]

Вот набросал тут: (ищем EXE-файл, например WINWORD.EXE).

function GetAppPath(const FileName: string): string;
var
  L: TStringList;
  R: TRegistry;
  i: Integer;
  Buf: PChar;
  PathS, PathW, FilePath: string;
begin
  L := TStringList.Create;
  try
    R := TRegistry.Create;
    try
      R.RootKey := HKEY_CLASSES_ROOT;
      if R.KeyExists('\Applications\' + FileName + '\shell\open\command') then
        R.OpenKeyReadOnly('\Applications\' + FileName + '\shell\open\command')
      else
      if R.KeyExists('\Applications\' + FileName + '\shell\edit\command') then
        R.OpenKeyReadOnly('\Applications\' + FileName + '\shell\edit\command');
        try
          FilePath := R.ReadString('');
        finally
          R.CloseKey;
        end;
      finally
        R.Free;
      end;
      GetMem(Buf, MAX_PATH);
      try
        GetSystemDirectory (Buf, MAX_PATH);
        PathS := StrPas(Buf);
        GetWindowsDirectory(Buf, MAX_PATH);
        PathW := StrPas(Buf);
      finally
        FreeMem(Buf);
      end;
      if FileExists(IncludeTrailingBackslash(
           PathS) + FileName) then
        FilePath := IncludeTrailingBackslash(PathS)
      else
      if FileExists(IncludeTrailingBackslash(
           PathW) + FileName) then
        FilePath := IncludeTrailingBackslash(PathW)
  finally
    L.Free;
  end;
  if FilterSymbolsFilePath(FilePath) = '' then
    raise Exception.CreateFmt(
      'File % not found  in Windows regedit', [FileName]);
  Result := FilterSymbolsFilePath(FilePath);
end;