Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Открытие окон интернета [D7, WinXP]

Foggot © (2005-05-23 17:02:00)
Помогите пожалуйста, мне нужно что бы по нажатию на кнопку: 1) окрывалось однавременно 4 интернет окна такого типа www.xxx.ru/xxx'+edit1.text+'xxx 2)теже самые окна открывались с небольшой задержкой несколько доли секуд

Foggot (2005-05-23 17:14:00) [1]
>Я знаю чтобы открыть одно окно нужно использовать этот код:.ShellExecute(Handle, 'open', Pchar('http:\\xxx.xxx'+edit1.>text+'xxx'+edit2.text), nil, nil, SW_SHOW);
>Но как открыть 4 окна
Я написал это не видя что написал Antonn(спасибо за код)!

rOOse (2005-05-23 17:13:00) [2]
ShellExecute(0,'open','G:\Program Files\Mozilla Firefox\firefox.exe','www.xxx.ru','',SW_SHOW);

Foggot (2005-05-23 17:12:00) [3]
Я знаю чтобы открыть одно окно нужно использовать этот код:ShellExecute(Handle, 'open', Pchar('http:\\xxx.xxx'+edit1.text+'xxx'+edit2.text), nil, nil, SW_SHOW);
Но как открыть 4 окна

Antonn (2005-05-23 17:11:00) [4]
1)ShellExecute(Handle, nil, Pchar('www.xxx.ru/xxx'+edit1.text+'xxx'), nil, nil, SW_SHOW);
2)var i:integer;

for i:=0 to 3 do begin
ShellExecute(Handle, nil, Pchar('www.xxx.ru/xxx'+edit1.text+'xxx'), nil, nil, SW_SHOW);
sleep(1000);
end;

Foggot (2005-05-23 17:09:00) [5]
Нет

Foggot (2005-05-23 17:08:00) [6]
А можно чуть по подробнее

rOOse (2005-05-23 17:08:00) [7]
Foggot (23.05.05 17:02)
www.xxx.ru
Опять порнуха ;)

Eraser (2005-05-23 17:07:00) [8]
Foggot (23.05.05 17:02)
www.xxx.ru

LOL ))

По сабжу:
uses ShellApi

ShellExecute + F1

Наверх

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