@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
İnternet tarayıcıları açma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: İnternet tarayıcıları açma
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
(Ona bakarsak kullanici chrome.exe ninde ismini degistirmis olabilir o zaman ne yapacagiz ) Oda artık kullanıcının sorunu adını değiştirmesin
verdiğiniz linki daha önce incelemiştim tam listeyi vermiyor birde programların exe sinin olduğu klasörü bulmak lazım...
Benim bilgisayarda dört browser var ikisini meraktar yükledim, üçü c klasöründe birtek yandek coşmuş durumda...
C:\Program Files\Mozilla Firefox
C:\Program Files\Google\Chrome\Application
C:\Program Files\Internet Explorer
C:\Users\Brs\AppData\Local\Yandex\YandexBrowser\Application
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
Re: İnternet tarayıcıları açma
Aynı anahtar üzerinde "UninstallString" diye bir değer olmalı o değeri okursanız size kurulu dizinleri verir.
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;
Re: İnternet tarayıcıları açma
Kaç gündür deli saçması gibi uğrasıyorum aslında çok daha basit yolu varmış, DirectoryExists ile klasör kontrol edilip bulunamaz ise burada devreye Search buton girecek ve kullanıcı masa üstünde veya exe seçerek program yolunu tanıtacak...
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;
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
Re: İnternet tarayıcıları açma
Cok basarili gayet mantikli buldum basarilar dilerim...