web sayfası açma

[Yavuz]

Daha önce sorulmuş bir soru biliyorum.
Notlarımda web sayfası açmak için

Kod: Tümünü seç

ShellExecute(Handle, 'open', pchar('http://www.sayfa.com'), nil, nil,     sw_ShowMaximized);

kullanılır diye not etmişim
Şimdi lazım oldu ama sayfa açılmadı
herhalde yanlış yazdım diye forumda tekrar aradım ama aynı kodlar yine çalışmadı (shellapi de tamam) değişen bir şey mi va acaba ?
(Windows-XP Delhi7)

Teşekkürler ...

[conari]

kodda problem yok.

Kod: Tümünü seç

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shellapi, StdCtrls;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(Handle, 'open', pchar('http://www.sayfa.com'), nil, nil, sw_ShowMaximized);
end;

[Yavuz]

Evet kodlarda problem yokmuş.
Evimdeki bilgisayarımda deneyince kodlar çalıştı.
İş yerindeki ya Proventi' dan yada bilgisayarımın internet ayarlarından çalışmıyor olsa gerek orasını anlayamadım.
Çok teşekkürler ...