باز کردن یک صفحه اینترنتی از دلفی

[Batman]

با سلام
دوستان چجوری میتونم یه label رو زمانیکه روش کلیک کردم یه صفحه اینترنتی با caption همون label (یعنی آدرس صفحه caption مربوط به label باشه) باز بشه
با تشکر

[ghabil]

ShellExecute(Handle, 'open', PChar(lbUrl.Caption), 0, 0, SW_SHOWNORMAL);

[AhmadYousefi]

با این تابع میشه تو یه صفحه جدید باز بشه:

function BrowseURL(const URL: string) : boolean;
var
Browser: string;
begin
Result := True;
Browser := '';
with TRegistry.Create do
try
RootKey := HKEY_CLASSES_ROOT;
Access := KEY_QUERY_VALUE;
if OpenKey('\htmlfile\shell\open\command', False) then
Browser := ReadString('') ;
CloseKey;
finally
Free;
end;
if Browser = '' then
begin
Result := False;
Exit;
end;
Browser := Copy(Browser, Pos('"', Browser) + 1, Length(Browser)) ;
Browser := Copy(Browser, 1, Pos('"', Browser) - 1) ;
ShellExecute(0, 'open', PChar(Browser), PChar(URL), nil, SW_SHOW) ;
end;

[vcldeveloper]

با این تابع میشه تو یه صفحه جدید باز بشه:
ShellExecute خودش برنامه ایی را که نوع فایل انتخاب شده را Handle می کند، پیدا کرده و آن را اجرا می کند، یعنی در این مورد، خود ShellExecute آدرس مرورگر پیش فرض را پیدا می کند و URL مربوطه را در آن باز می کند، پس نیازی به پیدا کردن آدرس مرورگر از رجیستری نیست.