بدست آوردن مرورگر های نصب شده

[sajioo]

سلام بر دوستان گلم
می خواستم بدونم چطور می تونم لیست مرورگر های نصب شده در ویندوز رو شناسایی کنم و چطور صفحه ی وب رو با مرورگر دلخواهی که مد نظرم است باز کنم.
برای باز کردن صفحه وب از کد زیر استفاده می کنم :

ShellExecute(Handle, 'open', PChar('www.google.com'), '', '', SW_SHOW);
اما فقط این کار رو با مرورگر پیش فرض انجام میده.

[کامروا]

واسه بدست آوردن لیست مرورگرها از کد زیر استفاده کن :


function InstalledBrowser: string;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
if Reg.KeyExists('http\Shell\Open\Command') then
begin
Reg.OpenKey('http\Shell\Open\ddeexec\Application', True);
Result := Reg.ReadString('');
Reg.CloseKey
end
else
Result := '';
Reg.Free;
end;

[sajioo]

حالا چطور از هر کدوم که می خوام استفاده کنم؟
دوستان من تست کردم تابع بالارو اما فقط فایر فاکس رو نشون میده.
رو سیستم من هم کروم هست.هم اینترنت اکسپلورر و هم اوپرا و هم فایرفاکس

[Mask]

حالا چطور از هر کدوم که می خوام استفاده کنم؟
یعنی چی؟
یعنی میخای یه سایت رو با مرور گری که تعیین میکنی باز بشه؟
برای این کار میتوانید از دستور shellexecute به همراه پارامترهای مربوطه استفاده کنید.

[sajioo]

برای این کار میتوانید از دستور shellexecute به همراه پارامترهای مربوطه استفاده کنید.
دقیقا اما نمیدونم چطوری؟
لطفا در مورد سوال اول هم راهنمایی کنید.
ممنون

[sajioo]

کسی نمیدونه؟