1 – Delphi’yi başlatın.
2 – File | New Application ı seçin.
3 – Unit’in Uses kısmına Registry ekleyin.
4 – Formunuz üzerine TListBox komponenti ekleyin.
5 – Formunuz üzerine TButton ekleyin.
6 – Butonunuzun OnClick olayına Aşağıdaki kısmı ekleyin.
2 – File | New Application ı seçin.
3 – Unit’in Uses kısmına Registry ekleyin.
4 – Formunuz üzerine TListBox komponenti ekleyin.
5 – Formunuz üzerine TButton ekleyin.
6 – Butonunuzun OnClick olayına Aşağıdaki kısmı ekleyin.
procedure TForm1.Button1Click(Sender: TObject) ;
const
REGKEYAPPS = '\SOFTWARE\Microsoft\Windows\
CurrentVersion\Uninstall';
var
reg : TRegistry;
List1 : TStringList;
List2 : TStringList;
j, n : integer;
begin
reg := TRegistry.Create;
List1 := TStringList.Create;
List2 := TStringList.Create;
{Tüm Alt Anahtarları Yükle}
with reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(REGKEYAPPS, false) ;
GetKeyNames(List1) ;
end;
{Tüm değer “Value” adlarını yükle}
for j := 0 to List1.Count -1 do
begin
reg.OpenKey(REGKEYAPPS + '' + List1.Strings[j],false) ;
reg.GetValueNames(List2) ;
{Eğer bir 'DisplayName' var ise bunu göstereceğiz.}
n := List2.IndexOf('DisplayName') ;
if (n <> -1) and
(List2.IndexOf('UninstallString') <> -1) then
begin
ListBox1.Items.Add(
(reg.ReadString(List2.Strings[n]))) ;
end;
end;
List.Free;
List2.Free;
reg.CloseKey;
reg.Destroy;
end;
const
REGKEYAPPS = '\SOFTWARE\Microsoft\Windows\
CurrentVersion\Uninstall';
var
reg : TRegistry;
List1 : TStringList;
List2 : TStringList;
j, n : integer;
begin
reg := TRegistry.Create;
List1 := TStringList.Create;
List2 := TStringList.Create;
{Tüm Alt Anahtarları Yükle}
with reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(REGKEYAPPS, false) ;
GetKeyNames(List1) ;
end;
{Tüm değer “Value” adlarını yükle}
for j := 0 to List1.Count -1 do
begin
reg.OpenKey(REGKEYAPPS + '' + List1.Strings[j],false) ;
reg.GetValueNames(List2) ;
{Eğer bir 'DisplayName' var ise bunu göstereceğiz.}
n := List2.IndexOf('DisplayName') ;
if (n <> -1) and
(List2.IndexOf('UninstallString') <> -1) then
begin
ListBox1.Items.Add(
(reg.ReadString(List2.Strings[n]))) ;
end;
end;
List.Free;
List2.Free;
reg.CloseKey;
reg.Destroy;
end;
