بازکردن اینترنت اکسپلورر و رفتن به آدرس خاص از طریق دلفی

با سلام
کسی می داند چگونه می توان از طریق دلفی اینترنت اکسپلورر را باز کرد و به آدرس خاصی وارد شد؟
با تشکر

[ali643]

program iexplor; 

uses Windows, OLEAuto; 

procedure OpenInternetExplorer( sURL : string ); 

const csOLEObjName = 'InternetExplorer.Application'; 

var IE : Variant; 

    WinHanlde : HWnd; 

begin 

   if( VarIsEmpty( IE ) )then 

   begin 

     IE := CreateOleObject( csOLEObjName ); 

     IE.Visible := true; IE.Navigate( sURL ); 

   end 

   else 

   begin 

    WinHanlde := FindWIndow( 'IEFrame', nil ); 

    if( 0 <> WinHanlde )then 

    begin 

       IE.Navigate( sURL ); 

       SetForegroundWindow( WinHanlde ); 

    end 

    else 

    begin 

       // handle error ... 

   end; 

   end; 

   end; 

begin 

     OpenInternetExplorer( 'microsoft.com' ); 

end.

منبع سایت برنامه نویس سابقwww.barnamenevis.com

[Gladiator]

winexec('explorer http://www.barnamenevis.org/forum',sw_normal);

آقا دمتون گرم.
دنبال همین می گشتم. مشکلم حل شد :heart:
متشکرم

[hojat_y]

سلام دوستان
این ارور میده. چکار کنم؟

[hojat_y]

uses
Shellapi

shellexecute(handle,'open','http://hojjat.yazdanparast.com/',nil,nil,sw_show);