zainstalowane oprogramowanie - Delphi

0

Hello !

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

Pozdrawiam

0
  1. wyciągnij dane z rejestru - dodaj/usuń
  2. przeleć wyszuzkiwaniem Program Files ;)
0
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\

0

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

0
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?

0

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;

0

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

0

mam dodane a mimo to nic nie wyswietla

0
bruws napisał(a)

mam dodane a mimo to nic nie wyswietla

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0