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

Вниз

Страница в новом окне   Найти похожие ветки 

← →
Kosald ©   (2005-04-24 21:06) [0]

ShellExecute(0, nil,"http://delphi.mastak.com",nil,nil,1); <- в уже активном окне открывается страница
Как сделать открытие в новом окне?

---

← →
easy ©   (2005-04-24 21:40) [1]

var
 defExplorer,tmpPath:array[0..MAX_PATH] of char;
 FileHandle: Integer;
 filestr:string;
begin
 GetTempPath(sizeof(tmpPath),@tmpPath);
 filestr:= tmpPath+"tmpfile.htm";
 FileHandle:=filecreate(filestr);
 fileclose(FileHandle);
 FindExecutable(pchar(filestr),@tmpPath,@defExplorer);
 shellexecute(0,"open",@defExplorer,"http://ya.ru","",SW_SHOWNORMAL);
 deletefile(filestr);
end;

---

← →
Piter ©   (2005-04-24 22:00) [2]

easy ©   (24.04.05 21:40) [1]

Откуда алгоритм?

---

← →
Kosald ©   (2005-04-24 22:05) [3]

easy ©   (24.04.05 21:40) [1]
Спасибо. Не ожидал, что столько ипераций надо

---

← →
VMcL ©   (2005-04-25 00:00) [4]

>>easy ©   (24.04.05 21:40) [1]

А я бы, наверное, через "HKEY_CLASSES_ROOT\http\shell\open\command" делал.

---

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

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

Наверх

Память: 0.45 MB
Время: 0.036 c