| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Страница в новом окне [D7, WinXP]

Kosald ©   (2005-04-24 21:06:00) 

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

---

VMcL   (2005-04-25 00:00:00) [1]

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

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

---

Kosald   (2005-04-24 22:05:00) [2]

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

---

Piter   (2005-04-24 22:00:00) [3]

easy ©   (24.04.05 21:40) [1]

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

---

easy   (2005-04-24 21:40:00) [4]

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;

---

Наверх