|
#1
|
|||
|
|||
Текст поверх окон
Здравствуйте. Встал вопрос: нужно реализовать программу, позволяющую отправлять текстовые сообщения на удаленный компьютер. При этом сообщения должны быть поверх всех окон на удаленном компе, но при этом не сворачивая их. Т.е. человек, например, играет в игрушку в полном экране и тут ему посреди экрана вылазит надпись: Вася - кушать! Висит в ТОПе секунд 10 и пропадает.
Есть начальные наработки, но это всё не совсем то: Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ScktComp, CheckLst; type TForm1 = class(TForm) ClientSocket1: TClientSocket; ServerSocket1: TServerSocket; Edit1: TEdit; Button1: TButton; CheckListBox1: TCheckListBox; procedure ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ClientSocket1.Socket.Connections[FormServer.CheckListClient.ItemIndex].SendText(Edit1.Text); ClientSocket1.Socket.SendText(Edit1.Text); Form2.Label1.Caption := Edit1.Text; Form2.Visible:= True; end; procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin //отслеживаем подключение клиента CheckListbox1.Items.Add(Socket.RemoteAddress); CheckListbox1.Perform(WM_VSCROLL,SB_BOTTOM,0); end; end. |