Деинсталляция программы при помощи Делфи.

[spamer]

Все привет. Собственно ситуация. Получаю я список установленных программ на компьютере и заношу их в ListBox. Делаю это я вот так (код в инете нашел):

var
   MyRegistry: TRegistry;
   i: Integer;
   Str: string;

 begin
     MyRegistry:=TRegistry.Create;
     MyList:=TStringList.Create;
         with MyRegistry do
            begin
            RootKey:=HKEY_LOCAL_MACHINE;
            if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall',
            False)=True then GetKeyNames(MyList);
            CloseKey;

            for i:=0 to MyList.Count-1 do
               begin
               RootKey:=HKEY_LOCAL_MACHINE;
               OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\'+
               MyList[i], False);
               Str:=ReadString('DisplayName');
               if Str<>'' then
               ListBox1.Items.Add(ReadString('DisplayName'));
               CloseKey;
               end;
              end;

А вот терь вопрос, как мене удалить программу с компа, которая была выбрана в ListBox?(Например - произвести удаление так, как удаляют при помощи Установка/Удаление программ)
Может быть функция для этого есть какая то?

[Dj_smart]

Ну для начала побробывать запустить деинсталлятор который есть почти в каждом комплекте, он кстати наверняка прописан в реестре. Или уже просто узнаем путь проги и ищем файл с шаблоном *uninstall* и тд и запускаем его
Если нет - самому все это делать, удалять файлы, чистить реестр.

[Black Fregat]

Там рядом с параметром DisplayName лежит параметр UninstallString

[uberchel]

Вот, чуть переделал )

procedure TForm1.FormCreate(Sender: TObject);
var
   i : Integer;
   str: string;
   Reg : TRegistry;
   List : TStringList;
 begin
   Reg := TRegistry.Create;
   List := TStringList.Create;
   with Reg do begin
   RootKey := HKEY_LOCAL_MACHINE;
   if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall',
   False)=True then GetKeyNames(List);
   for i := 0 to List.Count -1 do begin
   OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\'
   + List[i], False);
   Str:= ReadString('DisplayName');
   if Str<>'' then
   ListBox1.Items.Add(ReadString('DisplayName'));
   ListBox2.items.Add(ReadString('UninstallString'));
   CloseKey;
   end;
   Reg.Free;
   List.Free;
end;
end;

Применение:

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
WinExec(PcHar(ListBox2.Items[ListBox1.ItemIndex]),SW_NORMAL);
end;

[spamer]

Спасибо. Только есть одно но - параметр UninstallString для некоторых программ пустой. Из-за этого происходит удаление не той программы.
Вот попытался переделать не много код uberchel, но все равно, при выборе программы удаляет не ее, а какую то другую.

procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
   str, str1: string;
   Reg : TRegistry;
   List : TStringList;
 begin
   Reg := TRegistry.Create;
   List := TStringList.Create;
   with Reg do begin
   RootKey := HKEY_LOCAL_MACHINE;
   if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall',
   False)=True then GetKeyNames(List);
   for i := 0 to List.Count -1 do begin
   OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\'
   + List[i], False);
   Str:= ReadString('DisplayName');
   if Str = '' then
    str:=  ReadString('QuietDisplayName');
   //if str = '' then
    //str := List[i];

   if str <> '' then ListBox1.Items.Add(str);

   str1:= ReadString('UninstallString');
   if str1 = '' then
     str1:= ReadString('QuietUninstallString');

   if str1 <> '' then ListBox2.Items.Add(str1);

   CloseKey;
   end;
   Reg.Free;
   List.Free;
end;

Может у кого-то есть какие-то идеи исправить это.