publicunit.pas

来自「本目录内所有代码仅作指导用户编程之用,用户如果要作为 商业用途,建议使用正版软」· PAS 代码 · 共 40 行

unit PublicUnit;

interface

uses messages;

const WM_DTU          = WM_USER + 100;
const WM_DTU_PARAM    = WM_DTU + 1;
const WM_SET_PARAM_RESP = WM_DTU + 2;

type
  TMess = array[0..1023] of char;
  TUserData = array[0..1023] of byte;

  TUser_Info = record
    m_userid: array[0..11] of char;
    m_sin_addr: Longword;
    m_sin_port: Word;
    m_local_addr: LongWord;
    m_local_port: Word;
    m_logon_date: array[0..19] of char;
    m_update_time: array[0..19] of char;
    m_status: Byte;
  end;

  TData_Record = record
    m_userid: array[0..11] of char;
    m_recv_date: array[0..19] of char;
    m_data_buf: array[0..1023] of Byte;
    m_data_len: Word;
    m_data_type: Byte;
  end;

var
  mess: TMess;

implementation

end.