网络小工具 ShareView[3]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 lyris 的 blog

    property shi50_path: string read fshi50_path write setshi50_path;
  end;
  tsessioninfo502obj = class
  private
    fsesi502_time: dword;
    fsesi502_idle_time: dword;
    fsesi502_num_opens: dword;
    fsesi502_cname: widestring;
    fsesi502_username: widestring;
    procedure setsesi502_cname(const value: widestring);
    procedure setsesi502_idle_time(const value: dword);
    procedure setsesi502_num_opens(const value: dword);
    procedure setsesi502_time(const value: dword);
    procedure setsesi502_username(const value: widestring);
  public
    constructor create(sessioninfo502: tsessioninfo502);
    property sesi502_cname: widestring read fsesi502_cname write setsesi502_cname;
    property sesi502_username: widestring read fsesi502_username write setsesi502_username;
    property sesi502_num_opens: dword read fsesi502_num_opens write setsesi502_num_opens;
    property sesi502_time: dword read fsesi502_time write setsesi502_time;
    property sesi502_idle_time: dword read fsesi502_idle_time write setsesi502_idle_time;
  end;

  tsessioninfo50obj = class
  private
    fsesi50_num_opens: integer;
    fsesi50_time: integer;
    fsesi50_idle_time: integer;
    fsesi50_cname: widestring;
    fsesi50_username: widestring;
    procedure setsesi50_cname(const value: widestring);
    procedure setsesi50_idle_time(const value: integer);
    procedure setsesi50_num_opens(const value: integer);
    procedure setsesi50_time(const value: integer);
    procedure setsesi50_username(const value: widestring);
  public
    constructor create(sessioninfo50: tsessioninfo50);
    property sesi50_cname: widestring read fsesi50_cname write setsesi50_cname;
    property sesi50_username: widestring read fsesi50_username write setsesi50_username;
    property sesi50_num_opens: integer read fsesi50_num_opens write setsesi50_num_opens;
    property sesi50_time: integer read fsesi50_time write setsesi50_time;
    property sesi50_idle_time: integer read fsesi50_idle_time write setsesi50_idle_time;
  end;

  tfileinfo3obj = class
  private
    ffi3_permissions: dword;
    ffi3_num_locks: dword;
    ffi3_id: dword;
    ffi3_pathname: widestring;
    ffi3_username: widestring;
    procedure setfi3_id(const value: dword);
    procedure setfi3_num_locks(const value: dword);
    procedure setfi3_pathname(const value: widestring);
    procedure setfi3_permissions(const value: dword);
    procedure setfi3_username(const value: widestring);
  public
    constructor create(fileinfo3: tfileinfo3);
    property fi3_id: dword read ffi3_id write setfi3_id;
    property fi3_permissions: dword read ffi3_permissions write setfi3_permissions;
    property fi3_num_locks: dword read ffi3_num_locks write setfi3_num_locks;
    property fi3_pathname: widestring read ffi3_pathname write setfi3_pathname;
    property fi3_username: widestring read ffi3_username write setfi3_username;
  end;


type
  tfileinfo50obj = class
  private
    ffi50_id: integer;
    ffi50_pathname: string;
    ffi50_username: string;
    ffi50_sharename: string;
    ffi50_permissions: word;
    ffi50_num_locks: word;
    procedure setfi50_id(const value: integer);
    procedure setfi50_num_locks(const value: word);
    procedure setfi50_pathname(const value: string);
    procedure setfi50_permissions(const value: word);
    procedure setfi50_sharename(const value: string);
    procedure setfi50_username(const value: string);
  public
    constructor create(fileinfo50: tfileinfo50);
    property fi50_id: integer read ffi50_id write setfi50_id;
    property fi50_permissions: word read ffi50_permissions write setfi50_permissions;

本文关键:网络小工具 ShareView
  相关方案
Google
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top