WinAPI функции

unit cliUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons;
 
  var WM_SUBSCRIBETIME, WM_UNSUBSCRIBETIME,
  WM_SUBSCRIBEMEM, WM_UNSUBSCRIBEMEM : Cardinal;
 
type
  TClientForm = class(TForm)
    TimeSpeedButton: TSpeedButton;
    procedure TimeSpeedButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   procedure WMCopyData(var msg: TMessage);message WM_COPYDATA;
  end;
 
var
  ClientForm: TClientForm;
 
implementation
 
{$R *.DFM}
 
procedure TClientForm.TimeSpeedButtonClick(Sender: TObject);
var srvhandle : THandle;
begin
 srvhandle := FindWindow(nil ,'Server');
 if srvhandle<>0 then
  if TimeSpeedButton.Down then
   PostMessage(srvhandle,WM_SUBSCRIBETIME,integer(Self.Handle),0)
  else
   begin
   PostMessage(srvhandle,WM_UNSUBSCRIBETIME,integer(Self.Handle),0);
   TimeSpeedButton.Caption := 'WinDir';
   end;
end;
 
 
procedure TClientForm.WMCopyData(var msg: TMessage);
 var
  m : cardinal; windir: string;
 begin
 m := PCopyDataStruct(msg.lParam)^.dwData;
 if PCopyDataStruct(msg.lParam)^.lpData<>nil then
 windir := String(PCopyDataStruct(msg.lParam)^.lpData^);
 end;
 
initialization
  WM_SUBSCRIBETIME := RegisterWindowMessage('WM_SUBSCRIBETIME');
  WM_UNSUBSCRIBETIME:= RegisterWindowMessage('WM_UNSUBSCRIBETIME');
  WM_SUBSCRIBEMEM:= RegisterWindowMessage('WM_SUBSCRIBEMEM');
  WM_UNSUBSCRIBEMEM:= RegisterWindowMessage('WM_UNSUBSCRIBEMEM');
end.

unit srvUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;
 
type
  TServerForm = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const MaxClients = 32;
 
  var WM_SUBSCRIBETIME, WM_UNSUBSCRIBETIME,
  WM_SUBSCRIBEMEM, WM_UNSUBSCRIBEMEM : Cardinal;
var
  ServerForm: TServerForm;
 
  MemClientList : array[0..MaxClients-1] of THandle;
  TimeClientList : array[0..MaxClients-1] of THandle;
 
implementation
 
 
{$R *.DFM}
procedure TServerForm.Timer1Timer(Sender: TObject);
 var  WinDir: string;
  buffer: array [0..255] of char;
  i : Integer;
  var CDS : TCopyDataStruct;
begin
  GetWindowsDirectory(buffer, SizeOf(buffer));
  windir:=buffer;
 // CDS.dwData := ms.dwAvailPageFile + ms.dwAvailPhys;
  CDS.cbData := SizeOf(windir);
  CDS.lpData := @windir;
 
  for i:=0 to MaxClients-1 do
   begin
   if TimeClientList[i]<>0 then
    SendMessage(TimeClientList[i],WM_COPYDATA,Self.Handle,longint(@CDS) );
   if (MemClientList[i]<>0) and (TimeClientList[i]<>MemClientList[i]) then
    SendMessage(MemClientList[i],WM_COPYDATA,Self.Handle,longint(@CDS) );
   end;
end;
 
initialization
  FillChar( MemClientList, SizeOf(MemClientList), 0);
  FillChar( TimeClientList, SizeOf(TimeClientList), 0);
finalization
 
end.