Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Вниз

Не устраивает ShellExecute-ссылка   Найти похожие ветки 

← →
Dr. Genius   (2005-01-04 11:00) [0]

С помощью функции ShellExecute можно сделать ссылку на форме программы. При открытии этой ссылки запускается окно браузера. Но если браузер уже запущен до того, то при нажатии на ShellExecute-ссылку, браузер открывает новую ссылку в уже открытом окне. Можно ли это дело исправить? Можно ли открыть ссылку в новом окне в независимости от того, открыт сейчас браузер или нет? Я поискал в Интернете, но ничего насчёт решения этой проблемы не нашёл…

---

← →
easy ©   (2005-01-04 14:23) [1]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
 shellapi, StdCtrls;

type
 TForm1 = class(TForm)
   Label1: TLabel;
   procedure FormCreate(Sender: TObject);
   procedure Label1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

function DefaultBrowser: string;
var
 tmp,res: array [0..MAX_PATH] of char;
begin
   GetTempPath(255, tmp);
   FileCreate(tmp + "htmpl.htm");
   FindExecutable("htmpl.htm", tmp, Res);
   Result := res;
   SysUtils.DeleteFile(tmp + "htmpl.htm");
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
with label1 do begin
 caption:="http://delphimaster.ru";
 cursor:=crHandPoint;
 font.Color:=clBlue;
 font.style:=[fsunderline];
end;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
 shellexecute(0, "open", pchar(DefaultBrowser),
     pchar(TLabel(Sender).Caption), "", SW_SHOWNORMAL);
end;

end.

---

← →
Dr. Genius   (2005-01-05 16:20) [2]

Премного благодарен!

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.064 c