link

tilføj \"shellapi\" til uses

og så.

Shellexecute(Handle, \'OPEN\', PChar(\'www.dinhjemmeside.dk\'), nil, nil, SW_SHOW);

/ZIRON

du kan bruge winapi komando\'en : ShellExecute(); du kan se hvordan i onlinehjælpen

/Martin

er nybegynder så er der en bædre foreklaring

hmmm skal duy have mere end det jeg gav dig??+

/ZIRON

TForm1.FormCreate(Sender: TObject);
begin
Shellexecute(Handle, \'OPEN\', PChar(\'www.dinhjemmeside.dk\'), nil, nil, SW_SHOW);
end;

og så skal du i uses tilføje, uses er i toppen af din unit:

shellapi

/ZIRON

Hvis du skal lave det lidt \"porno\" og IE wannabe agtigt, så lav det som følgende:

procedure TFAbout.FormCreate(Sender: TObject);
begin
  Label8.Caption := Main.frmPing.ver;
  Label4.Font.Color := clBlack;
  Label4.Font.Style := [fsBold];

end;

procedure TFAbout.Label4Click(Sender: TObject);
begin
  ShellExecute(handle,\'open\',PChar(\'mailto:snowball@it.dk\'),\'\',\'\',SW_SHOWNORMAL);
end;

procedure TFAbout.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  with (Sender as TLabel) do
  begin
    Font.Color := clBlue;
    Font.Style := [fsBold,fsUnderline];
    Cursor := crHandPoint;
  end;
end;

procedure TFAbout.Label4MouseLeave(Sender: TObject);
begin
  Label4.Font.Color := clBlack;
  Label4.Font.Style := [fsBold];
end;


Husk som sagt at tilføje ShellAPI under Uses og at tilpasse det hvis din link label ikke lige hedder Label4 ;) !

Snowball

øhhhh hvor i uses skal man tilføje shellapi

har fundet ud af det tak. men det skal væer et link og ikke selv starte når programmet starter

meno: Kig nu lige på koden ! Der sker jo ikke noget før du klikker på din label ! ;)

Snowball

Fjern for resten lige Label8.Caption := Main.frmPing.ver; ! Den skal du ikke bruge til noget ;)

Svarer lige hvis du kan bruge det til noget ;)

Snowball