реестр

[idel1]

нужно проверить установлена ли программа через реестр если да то показать версию программы если нет вывести куда нибудь что программа не установлена) если можно чтоб она проверяла все ветки в реестре)

[777user777]

Ну, во первых, для начала хоть бы сказал, какие ключи в реестре, что-за программа вообще, где она там версию хранит. Почитайте про такие API, как RegOpenKey, RegEnumKey, RegQueryValue, RegGetValue, и т.д.

[Lardes]

uses
  Registry;

function IsApplicationInstall(AName: string; var AVersion: string): Boolean;
const
//  SUninstall = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\';  //для Windows 7 (32 bit)
  SUninstall = 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\';  //для Windows 7 (64 bit)
var
  ValueStr: TStringList;
  I: Integer;
begin     
  Result := False;
  ValueStr := TStringList.Create;
  try
    with TRegistry.Create do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      //для HKEY_CURRENT_USER ветка 'Software\Microsoft\Windows\CurrentVersion\Uninstall\'
      OpenKeyReadOnly(SUninstall);
      GetKeyNames(ValueStr);
      CloseKey;
      for I := 0 to ValueStr.Count - 1 do
      begin
        OpenKeyReadOnly(SUninstall + ValueStr.Strings[I]);
        if (ReadString('DisplayName') <> '') and
          (ReadString('UninstallString') <> '')
        then
          if Pos(LowerCase(AName), LowerCase(ReadString('DisplayName'))) > 0 then
          begin
            AVersion := ReadString('DisplayVersion');
            Result := True;
            Break;
          end;
        CloseKey;
      end;
      Free;
    end;
  finally
    ValueStr.Free;
  end;
end;

Применение:

var
  SVersion: string;
begin
  if IsApplicationInstall('Google Chrome', SVersion) then
    ShowMessage(SVersion)
  else
    ShowMessage('<not install>');