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

Вниз

помогите...   Найти похожие ветки 

 
Masya2001   (2002-12-22 22:03) [0]

вот проблемма:
хочу определить какие окна запущенны..
код есть
procedure TForm1.Button1Click(Sender: TObject);
VAR
Wnd : hWnd;
buff: ARRAY [0..127] OF Char;
begin
ListBox1.Clear;
Wnd := GetWindow(Handle, gw_HWndFirst);
WHILE Wnd <> 0 DO BEGIN {Не показываем:}
IF (Wnd <> Application.Handle) AND {-Собственное окно}
IsWindowVisible(Wnd) AND {-Невидимые окна}
(GetWindow(Wnd, gw_Owner) = 0) AND {-Дочернии окна}
(GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков}
THEN BEGIN
GetWindowText(Wnd, buff, sizeof(buff));
ListBox1.Items.Add(StrPas(buff));
END;
Wnd := GetWindow(Wnd, gw_hWndNext);
END;
ListBox1.ItemIndex := 0;
end;
но это дело надо применить
в сервер&клиент
надо чтоб сервер определил на чужой машине какие окна запущены
и передал их клиентеу как это осуществитье если можно подробно.

ВОт например у меня на клиенте form1 на ней listbox1 и button1
как чтоб принажатии буттон1 в листбокс1 появились список окон
от сервера???
Жду ответов спасибо!


 
Song   (2002-12-22 22:41) [1]

TServerSocket+TClientSocket+F1


 
Masya2001   (2002-12-22 23:05) [2]

Ну лазил я в помощи ну обьясните наглядно прошу!


 
Morfein   (2002-12-22 23:30) [3]

Хы :)) Наглядно таких примеров в разделе "Сети" - выше крыши...


 
Masya2001   (2002-12-23 06:56) [4]

ну народ пожалуста у меня с инетт туговато!
успеваю только вставить этот текст в форум и всё !
Ну примерчик...


 
Masya2001   (2002-12-23 21:17) [5]

Ну помогите инет горло режит а очень нужно да и анг не владах сильно!
Так что в помощи не очень!
Плизь!



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

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

Наверх





Память: 0.55 MB
Время: 0.033 c
14-15313
J_S
2002-12-18 14:32
2003.01.06
SQL & dbExpress


3-14930
sndanil
2002-12-13 18:42
2003.01.06
Поле Time


1-15032
AndrewVolkov
2002-12-17 00:41
2003.01.06
---|Ветка была без названия|---


7-15318
ALexe K
2002-09-18 15:57
2003.01.06
Как сделать свою звонилку?


3-14899
RAA
2002-12-12 22:48
2003.01.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
Английский Французский Немецкий Итальянский Португальский Русский Испанский