DELPHI SHELLEecute URL

[Mohamed_sabri]

اريد ان استخدم خاصية shellexecute لفتح رابط في explorer window و ليس في متصفح انترنت 
ارجو المساعدة

[dulmkh]

uses vcl.buttons,winapi.shellapi;
procedure TForm5.Button1Click(Sender: TObject);

begin
ShellExecute(Handle, nil, 'www.delphi4arab.net', nil, nil, Sw_ShowNormal);

end;

[wadoud]

اريد ان استخدم خاصية shellexecute لفتح رابط في explorer window و ليس في متصفح انترنت 
ارجو المساعدة

كود :

uses   ShellAPI; procedure TForm1.Button1Click(Sender: TObject); var   URL: string; begin   URL := 'https://www.example.com';   ShellExecute(Handle, 'open', PChar(URL), nil, nil, SW_SHOWNORMAL); end;