Hello !
powiedzcie jakim kodem moge wyciagnac za pomoca Delphi liste zainstalowanego oprogramowania ??
Pozdrawiam
Hello !
powiedzcie jakim kodem moge wyciagnac za pomoca Delphi liste zainstalowanego oprogramowania ??
Pozdrawiam
Bełdzio napisał(a)
- wyciągnij dane z rejestru - dodaj/usuń
- 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 :)