Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.06.06;
Скачать: [xml.tar.bz2];

Вниз

Открытие окон интернета   Найти похожие ветки 

 
Foggot   (2005-05-23 17:02) [0]

Помогите пожалуйста, мне нужно что бы по нажатию на кнопку: 1) окрывалось однавременно 4 интернет окна такого типа www.xxx.ru/xxx"+edit1.text+"xxx 2)теже самые окна открывались с небольшой задержкой несколько доли секуд


 
Eraser ©   (2005-05-23 17:07) [1]

Foggot   (23.05.05 17:02)
www.xxx.ru


LOL ))

По сабжу:
uses ShellApi

ShellExecute + F1


 
Foggot   (2005-05-23 17:08) [2]

А можно чуть по подробнее


 
rOOse ©   (2005-05-23 17:08) [3]

Foggot   (23.05.05 17:02)
www.xxx.ru

Опять порнуха ;)


 
Foggot   (2005-05-23 17:09) [4]

Нет


 
Antonn ©   (2005-05-23 17:11) [5]

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:12) [6]

Я знаю чтобы открыть одно окно нужно использовать этот код:ShellExecute(Handle, "open", Pchar("http:\\xxx.xxx"+edit1.text+"xxx"+edit2.text), nil, nil, SW_SHOW);
Но как открыть 4 окна


 
rOOse ©   (2005-05-23 17:13) [7]

ShellExecute(0,"open","G:\Program Files\Mozilla Firefox\firefox.exe","www.xxx.ru","",SW_SHOW);


 
Foggot   (2005-05-23 17:14) [8]

>Я знаю чтобы открыть одно окно нужно использовать этот код:.ShellExecute(Handle, "open", Pchar("http:\\xxx.xxx"+edit1.>text+"xxx"+edit2.text), nil, nil, SW_SHOW);
>Но как открыть 4 окна
Я написал это не видя что написал Antonn(спасибо за код)!



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

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

Наверх





Память: 0.45 MB
Время: 0.014 c
14-1116580265
12DFBDDh
2005-05-20 13:11
2005.06.06
Роберт Шекли


14-1116503539
VMcL
2005-05-19 15:52
2005.06.06
А что только что в скрипте поменяли,


4-1111909900
Shiza
2005-03-27 11:51
2005.06.06
Запись CD. Попробуем вместе?


14-1116469702
/w\ax
2005-05-19 06:28
2005.06.06
Что за *cab?


14-1116657391
Gopher
2005-05-21 10:36
2005.06.06
Interface, implementation





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский