zainstalowane oprogramowanie - Delphi

Hello !

powiedzcie jakim kodem moge wyciagnac za pomoca Delphi liste zainstalowanego oprogramowania ??

Pozdrawiam

1. wyciągnij dane z rejestru - dodaj/usuń
2. przeleć wyszuzkiwaniem Program Files ;)

Bełdzio napisał(a)

1. wyciągnij dane z rejestru - dodaj/usuń
2. przeleć wyszuzkiwaniem Program Files ;)

Lepiej wyciągać z rejestru, bo nie wszystko instalowane jest w Program Files, a większość dodaje wpis w rejestrze ;)

Jak nie wiesz, gdzie szukać, przyjrzyj się tu:
HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\

Ja napisalem skrypt ktory wyciaga info o zainstalowanym sofcie ale dziala tylko pod Win98 i Win2000 a pod XP nie :( - dlaczego ??

snemei napisał(a)

Ja napisalem skrypt ktory wyciaga info o zainstalowanym sofcie ale dziala tylko pod Win98 i Win2000 a pod XP nie :( - dlaczego ??

Skrypt? Jaki skrypt?

TO JEST TEN SKRYPT ! DLACZEGO NIE DZIALA ON DLA WIN-XP ??

procedure TForm1.Button1Click(Sender: TObject);
var
MyList: TStringList;
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
    Memo1.Lines.Add(ReadString('DisplayName'));
  CloseKey;
end;

end;

Działa działa, tylko nie zapomij dodać do uses Registry;

mam dodane a mimo to nic nie wyswietla

bruws napisał(a)

mam dodane a mimo to nic nie wyswietla

Pewnie masz pirackiego windowsa - ale mi działa :)