G.Arkas yazdı:@brs
Ona bakarsak kullanici chrome.exe ninde ismini degistirmis olabilir o zaman ne yapacagiz
Asagida ki kod bilgisayarda kurulu tum uygulamalarin listesini ve pathlerini verir. Buradan tarayicilari aratabilirsiniz. Internet explorer dizini degistirilemez o yuzden ona gerek yok.
http://www.greatis.com/delphicb/tips/li ... lprog.html
) Oda artık kullanıcının sorunu adını değiştirmesin 
Kod: Tümünü seç
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;
{Load all the subkeys}
with reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(REGKEYAPPS, false) ;
GetKeyNames(List1) ;
end;
{Load all the Value Names}
for j := 0 to List1.Count -1 do
begin
reg.OpenKey(REGKEYAPPS + '' + List1.Strings[j],false) ;
reg.GetValueNames(List2) ;
{We will show only if there is 'DisplayName'}
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;Kod: Tümünü seç
procedure GoogleChrome(Sender: TObject); // ----->>>Google Chrome
begin
try
if DirectoryExists('C:\Program Files\Google\Chrome\Application') then
begin
Form3.Chrome.Enabled := True;
end
else
begin
Form3.Search.visible := True;
end;
except
Application.MessageBox('Açma Sırasında Hata Oluştu!', 'Hata!', MB_Ok or MB_ICONQUESTION);
end;
end;
Kod: Tümünü seç
procedure TForm3.SearchClick(Sender: TObject);
var
i: integer;
begin
if OpenDialog1.Execute then
begin
if OpenDialog1.Files.Count > 1 then
begin
Application.MessageBox('Maksimum 1 Adet Kayıt Seçebilirsiniz!', 'Uyarı!',
MB_Ok or MB_ICONQUESTION);
end
else
begin
for i := 0 to OpenDialog1.Files.Count - 1 do
begin
Caption := (OpenDialog1.Files[i]); // Program Yolu
end;
end;
end;
end;