Fórum Como criar pastas especificas no regedit usando o Delphi? #584711

function ProgramaInstalado(Programa: string): String; 
Var 
  List: TStringList; 
  Registry: TRegistry; 
  i: Integer; 
  DisplayName: String; 
begin 
  Registry := TRegistry.Create; 
  List := TStringList.Create; 
  try 
    with Registry do 
    begin 
      RootKey := HKEY_LOCAL_MACHINE; 

      if OpenKey('Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall', False) Then 
      Begin 
        GetKeyNames(List); 
        CloseKey; 
      End; 

      for i := 0 to List.Count - 1 do 
      begin 
        RootKey := HKEY_LOCAL_MACHINE; 
        OpenKey('Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\' + List[i], False); 
        DisplayName := ReadString('DisplayName'); 
        CloseKey; 

        if pos(AnsiUpperCase(Programa), AnsiUpperCase(DisplayName)) > 0 then 
        begin 
          Result := DisplayName; 
          exit; 
        end; 
      End; 
    end; 
  Finally 
    Registry.Free; 
    List.Free; 
  end; 
end;

if ProgramaInstalado(Edit1.Text) <> EmptyStr then 
    ShowMessage('Programa instalado: ' + sLineBreak + ProgramaInstalado(Edit1.Text)) 
  else 
    ShowMessage('Programa não instalado');