Открыть ссылку в браузере

[АлександрDelphi]

procedure TForm1.btn2Click(Sender: TObject);
begin
ShellExecute(Form1.Handle, nil, PChar(ExtractFilePath(Application.ExeName)+'\'+'GameCenter@Mail.ru.exe'), nil, nil, SW_SHOW);
end;

Почему у меня не запускает Игровой центр при клике на кнопку не подскажите, может где то допустил ошибку ?

[Iron Monk]

А он находится в папке с программой?

[АлександрDelphi]

Сообщение от Iron Monk

А он находится в папке с программой?

Нет Это игровой центр mail он установлен у меня на на С диске..
Ну у каждого по разному..
Надо просто что бы функция ShellExecute искала GameCenter@Mail.ru.exe в системе и запускала ..
А эта функция даже не запускает ...

ShellExecute(Handle, nil, 'GameCenter@Mail.Ru.exe', nil, nil, SW_SHOW);

И эта тоже .((

ShellExecute(Form1.Handle, nil, PChar(ExtractFilePath(Application.ExeName)+'\'+'GameCenter@Mail.ru.exe'), nil, nil, SW_SHOW);

[Пепел Феникса]

потому что вы должны указать полный путь, система за вас искать не будет.
далее вы уверены что ехе именно так называется?

[АлександрDelphi]

Сообщение от Пепел Феникса

потому что вы должны указать полный путь, система за вас искать не будет.
далее вы уверены что ехе именно так называется?

На скрине все показано, полный путь )

[Filka]

Скриншот имени файла - это не полный путь.

[Alex11223]

Полный путь это что-то типа 'C:\Program Files\.........\MyProgram.exe'

ExtractFilePath(Application.ExeName ) это путь папки вашей программы. Зачем он вам если этот геймцентр не лежит в папке вашей программы?

[Ernest027]

Делал так

uses ..., ShellAPI;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'http://www.google.ru', '', '', SW_SHOWNORMAL);
end;

и все ок

[АлександрDelphi]

Сообщение от Alex11223

Полный путь это что-то типа 'C:\Program Files\.........\MyProgram.exe'

ExtractFilePath(Application.ExeName ) это путь папки вашей программы. Зачем он вам если этот геймцентр не лежит в папке вашей программы?

Нет мне надо что бы при нажатие на кнопку просто запускался он и все у каждого )

[АлександрDelphi]

Сообщение от Ernest027

Делал так

uses ..., ShellAPI;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'http://www.google.ru', '', '', SW_SHOWNORMAL);
end;

и все ок

Спасибо но мне уже помогли с этим ))