Zitat von
RWarnecke:
Diese Funktion benutze ich :
Delphi-Quellcode:
///////////////////////////////////////////////////////////////////////////////
//
// Eine Liste der installierten Software zurückgeben
//
function GetUninstallList : string;
const
cUninstallPath = 'Software\Microsoft\Windows\CurrentVersion\Uninstall';
var
reg: TRegistry;
TmpKeyNames: TStringList;
i: Integer;
TmpResult: string;
begin
TmpResult := '';
Result := TmpResult;
TmpKeyNames := TStringList.Create;
TmpKeyNames.Clear;
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.KeyExists(cUninstallPath) then
if reg.OpenKeyReadOnly(cUninstallPath) then
reg.GetKeyNames(TmpKeyNames);
reg.CloseKey;
for i := 0 to TmpKeyNames.Count - 1 do
if reg.OpenKeyReadOnly(cUninstallPath + '\' + TmpKeyNames.Strings[i]) then
begin
if reg.ValueExists('DisplayName') then
TmpResult := TmpResult + reg.ReadString('DisplayName') + CRLF;
reg.CloseKey;
end;
reg.Free;
TmpKeyNames.Free;
Result := TmpResult;
end;
geht das auch unter 64 bit oder nicht ?