[Помогите!] Помогите с командами

[London.BiT]

1-Не смог найти команду открытия сайта в браузере
[Ссылки могут видеть только зарегистрированные пользователи. ]
Что нужно вставить после Бегин что б открывался по нажатию кнопки сайт?
2-Так же не понял можно ли сделать так что бы по нажатию кнопки открывалась другая программа, которая установлена на компьютере?
Если можно то скажите команду!

Буду очень признателен! Заранее спасибо!

[R.A.Z.O.R.]

uses ShellAPI;

В begin ... end напиши

ShellExecute(0,'open','http://рамблер.рф',nil,nil,SW_SHOWMAXIMIZED);

[London.BiT]

Цитата: Сообщение от Цитата unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) grp1: TGroupBox; btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject); begin end; end.

Это весь код!

Цитата: procedure TForm1.btn1Click(Sender: TObject); begin end;

А это код кнопки! К этой кнопки мне надо сделать так что б ВАН КЛИК и открывался Браузер с сайтом который я запишу! Мне нужна команда!

[Slavaberezin]

Цитата: Сообщение от London.BiT А это код кнопки! К этой кнопки мне надо сделать так что б ВАН КЛИК и открывался Браузер с сайтом который я запишу! Мне нужна команда!

'ShellExecute' - это тебе чем не команда ?

[R.A.Z.O.R.]

Учи основы Паскаля

[London.BiT]

Ну блин чё сложно сказать команду?

[VeTaL_UA]

Учите основы, вот вам главная команда и установка.

[London.BiT]

Да команда и установка, мне больше не чего не надо! =)

[*Хalyava*]

ну дак тебе же уже сказали нужную тебе "команду":

unit Unit1;

 interface

 uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ShellAPI;

 type
 TForm1 = class(TForm)
 grp1: TGroupBox;
 btn1: TButton;
 procedure btn1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

 var
 Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.btn1Click(Sender: TObject);
 begin
ShellExecute(0,'open','тут сайт',nil,nil,SW_SHOWMAXIMIZED);
 end;

 end.

вот твой код !