![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Прога типа аськи... [D6, WinME]
sany © (2002-03-13 21:14:00)народ, может кто знает как сделать в проге типо icq чтобы когда прога свёрнута в трей и пришло сообщения появлялась табличка "пришло сообщение". Пример кода пожалуйста.
Pat (2002-03-14 00:08:00) [1]А что конкретно не получается?
Просил пример, лови...примерно так, если че - подправишь
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var h:hwnd;
begin
h:=GetForegroundWindow;
messagebox(h,"Вам пришло сообщение","My_ICQ",mb_ok);
//А лучше просто иконку в трее менять... :-))
end;