Текущий архив: 2005.07.31;
Скачать: CL | DM;
Вниз
Страница в новом окне Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.026 c
