Главная страница
    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.015 c
1-1116831637
lehich
2005-05-23 11:00
2005.06.06
потоки и progressbar


3-1114504022
-=Domix=-
2005-04-26 12:27
2005.06.06
Запрос с ХП


6-1111250666
Calm
2005-03-19 19:44
2005.06.06
Передача файла по модему без инета.


14-1116636141
Максим О.
2005-05-21 04:42
2005.06.06
Помогите с Dephi 8


4-1113889016
Ola
2005-04-19 09:36
2005.06.06
Как программно перезапустить винду?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский