Lancer2404, замените вот это:
Цитата Lancer2404:
procedure TestButtonOnClick(Sender: TObject);
begin
MsgBox('Òåñò!', mbInformation, MB_OK)
end; »
|
На вот это:
Код:
procedure TestButtonOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://oszone.net', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;
