国产精品嫩草影院av蜜臀,91精品国产综合久久久久久豆腐,精品久久一区二区三区蜜桃

Fri, 14 Sep 2007 05:17:00 GMT

摘要: 重构前的代码�Q��用字�W�串处理状�?package org.zsk.refact; public class SystemPermission { private String state; private boolean&... 阅读全文

张树�?/a> 2007-09-14 13:17 发表评论

函数指针 �Ҏ��指针

Mon, 03 Sep 2007 08:08:00 GMT

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TEvent = procedure () of object;
  TProc = procedure();

  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  showmessage('�Ҏ��指针的长度是:'+Inttostr(SizeOf(TEvent)));
  showmessage('函数指针的长度是:'+Inttostr(SizeOf(TProc)));
end;

//函数指针是指向函数的32位指针，�?个字节�?br /> //�q�程的指针结构如�?br /> //  PProc = ^TProc;//�q�程指针
//　TProc = record
//　　Code: Pointer;//指向�q�程的代�?br /> //　end;
//�Ҏ��指针是指向一个结构。方法的指针�l�构如下
//  PMethod = ^TMethod;//�Ҏ��指针
//　TMethod = record
//　　Code: Pointer;//指向�Ҏ��的代�?br /> //    Data: Pointer;//指向对象的数�?br /> //　end;

end.

张树�?/a> 2007-09-03 16:08 发表评论

模拟键盘输入

Mon, 03 Sep 2007 08:03:00 GMT

  SetForegroundWindow(HApp);
  keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), 0, 0);
  keybd_event(ORD('B'), MapVirtualKey(Byte('t'), 0), 0, 0);
  keybd_event(Byte('B'), MapVirtualKey(Byte('t'), 0), KEYEVENTF_KEYUP, 0);
  keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), KEYEVENTF_KEYUP, 0);

//Ctrl: VK_CONTROL
//SHIFT:VK_SHIFT
//TAB:  VK_TAB
//ALT:  VK_MENU
//'A':  byte('A')

功能说明�Q?br /> 通过目标�E�序的句柄将该程序激�z�；
模拟鼠标按下
模拟鼠标抬�v

张树�?/a> 2007-09-03 16:03 发表评论

PostMessage和SendMessage区别

Mon, 03 Sep 2007 06:28:00 GMT

PostMessage 只是把消息放入队列，不管其他�E�序是否处理都返回，然后�l�箋执行 ;
�?/span> SendMessage 必须�{�待其他�E�序处理消息后才�q�回�Q��l�执行�?/span>
PostMessage 的返回��D��C?/span> PostMessage 函数执行是否正确 ;
�?/span> SendMessage 的返回��D��C�其他程序处理消息后的返回倹{�?/span>
使用�q�两个发送消息函数的最重要的是要看你的�E�序是否要对消息的滞后性关注否 ,PostMessage 会造成消息的滞后�?/span> , �?/span> SendMessage 则不�?/span> , 但如�?/span> SendMessage 消息处理��p�| , 则会造成�E�序停止 !

��Z��让大家能清楚的看��C��们的效果�Q�可以用下面的代码进行测试：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    mmo1: TMemo;
    btn2: TButton;
    btn3: TButton;
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
    procedure testPostMessage;
    procedure testSendMessage;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses uFile;

{$R *.dfm}
var
  f: TFile;

procedure TForm1.btn2Click(Sender: TObject);
var
  i: Integer;
begin
  testPostMessage;
  for i := 0 to 5000 do
  begin
    mmo1.Lines.Add(IntToStr(i)+'======');
  end;
end;

procedure TForm1.btn3Click(Sender: TObject);
var
  i: Integer;
begin
  testSendMessage;
  for i := 0 to 5000 do
  begin
    mmo1.Lines.Add(IntToStr(i)+'======');
  end;
end;

procedure TForm1.testPostMessage;
var
  i: Integer;
begin
  PostMessage(f.Handle, WM_TEST, 0, 0);
  for i := 0 to 5000 do
  begin
    mmo1.Lines.Add(IntToStr(i))
  end;
end;

procedure TForm1.testSendMessage;
var
  i: Integer;
begin
  SendMessage(f.Handle, WM_TEST, 0, 0);
  for i := 0 to 5000 do
  begin
    mmo1.Lines.Add(IntToStr(i))
  end;
end;

initialization
  if f = nil then
    f := TFile.Create;

finalization
  if f <> nil then
    FreeAndNil(f);;

end.

unit uFile;

interface

uses
  Classes, Windows, Forms, Messages;

const
  WM_TEST = WM_USER + 1;

type
  TFile = class
  private
    FHandle: HWND;
  protected
    procedure WndProc(var Msg: TMessage);
  public
    procedure AfterConstruction; override;
    procedure BeforeDestruction; override;
    property Handle: HWND  read FHandle;
  end;

implementation

{ TFile }

procedure TFile.AfterConstruction;
begin
  inherited;
  FHandle := AllocateHWnd(WndProc);
end;

procedure TFile.BeforeDestruction;
begin
  inherited;
  DeallocateHWnd(FHandle);
end;

procedure TFile.WndProc(var Msg: TMessage);
begin
  if msg.Msg = WM_TEST then
  begin
    //消息处理内容
    Application.MessageBox('WM_TEST', 'WM_TEST', 0);
  end;
  windows.DefWindowProc(FHandle, Msg.Msg, Msg.wParam, Msg.lParam);
end;

end.

张树�?/a> 2007-09-03 14:28 发表评论

java中的�c�M��c?java.lang.reflect

Mon, 03 Sep 2007 05:09:00 GMT

不知道java.lang.reflect实现的功能算不算是java中的�c�M��c�，
我暂时是按这个理解的�Q?br />

package org.zsk.reflect;

import java.lang.reflect.*;

public class TestReflect {
    public static void main(String args[]) {
           try {
               Class c = Class.forName("java.util.Stack");
               Method m[] = c.getDeclaredMethods();
               for (int i = 0; i < m.length; i++)
                   System.out.println(m[i].toString());
           } catch (Throwable e) {
               System.err.println(e);
           }
       }
}

上面代码能够使用“java.util.Stack”扑ֈ��c?br />
看看Delphi的类之类

type

TObject = class;

TClass = class of TObject;

TObject是一个类
TClass是这个TObject�cȝ��c�，
如果我们要做个管理类的话�Q�可以用个List实现一个name和一个类之类的对应的map
我们��可以根据这个name�Q�就是一个字�W�串�Q�找到、创建、��用、释放这�cȝ��对象�?

java中的�c�L��?br /> public static XXX
delphi中的�c�L��?br /> class procedure XXX

张树�?/a> 2007-09-03 13:09 发表评论

VNC不错的共享��Y�?�~�译成功^_^

Sat, 01 Sep 2007 08:20:00 GMT

直接在VC6下就能编译，记得不能Build All,只要在FileView选项卡下分别Build vncviewer files和winvnc files��可以�?br /> 特别感谢老张�l�的源码和帮助编译�?br />

张树�?/a> 2007-09-01 16:20 发表评论

Sat, 01 Sep 2007 05:50:00 GMT

常用讄��

1、显�C��?nbsp; Window->Preferences->General->Editors->Text Editor 选择Show line numbers
2、设�|�UTF-8 Window->Preferences->General->Workspace 中Text file encoding 选择other�q��UTF-8

快捷�?/p>

1、运行程�?nbsp; Alt+Shift+X 按J run as javaApplication (按下Alt+Shift+X 后Eclipase右下角有提示)

2、排�?nbsp; 选中多行文本

Tab 后羃

Shift + Tab 前进

张树�?/a> 2007-09-01 13:50 发表评论

Sat, 01 Sep 2007 05:23:00 GMT

实现思�\分析�Q?br /> 1、找到目标程序的句柄�Q�可以通过�H�口的caption属性获取，使用

FindWindow(nil, 'app caption');

2、找��C��要控制的�l��g�Q�如Button,使用

FindWindowEx(ParentHandle, 0, nil, 'btn caption');

3、发送Windows消息控制目标�E�序

SendMessage( HEdt, BM_CLICK, 0, 0 );

下面是实现该功能的Delphi代码�Q?br />

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    mmo1: TMemo;
    edt1: TEdit;
    edt2: TEdit;
    btn3: TButton;
    lbl1: TLabel;
    lbl2: TLabel;
    btn4: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  ShellAPI;

{$R *.dfm}
var
  HApp,
  HEdt : THandle;

procedure TForm1.btn1Click(Sender: TObject);
begin
  HApp := FindWindow(nil, PAnsiChar(edt1.text));
  mmo1.Lines.Add(IntToStr(HApp));

  HEdt := FindWindowEx(HApp, 0, nil, PAnsiChar(edt2.text));
  mmo1.Lines.Add(IntToStr(HEdt));
  SendMessage( HEdt, BM_CLICK, 0, 0 );
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  ShellExecute(handle, 'open', 'otherapp.exe',nil,nil, SW_SHOWNORMAL{SW_SHOWMAXIMIZED});
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
  SendMessage( HApp, WM_CLOSE, 0, 0 );
end;

end.

张树�?/a> 2007-09-01 13:23 发表评论

企风�|�页滚动截图软�gV2.0

Fri, 31 Aug 2007 12:10:00 GMT

    随着�|�站信息量越来越大，�?0%的网��内容超�q�了一屏。这�l�那些想以图片格式保存页面信息的朋友带来不少的麻烦，例如想保存网��늾�略图、交易取证、��R权取证等各种需求�?br /> 为此�Q�企风科技特向大家推出一�Ƅ��色免费的�|�页滚动截图软�g�Q�让你所见即所得、随心所�Ʋ保存您喜欢的页面�?br />
   下蝲�Q?br />     zhangsk.cn下蝲
    BlogJava下蝲

张树�?/a> 2007-08-31 20:10 发表评论

Java�U�程

Fri, 31 Aug 2007 11:34:00 GMT

1 package org.zsk.error;
2
3 public class MultiThreadDemo1_1 {
4
5     public MultiThreadDemo1_1() {
6         // TODO Auto-generated constructor stub
7         new NewThread("1");
8         new NewThread("2");
9         new NewThread("3");
10         new NewThread("4");
11
12         System.out.println("main thread begin!");
13         for (int i=0; i<100; i++){
14             System.out.println("  -->  ");
15
16         }
17         System.out.println("main thread end;");
18
19     }
20
21     /**
22      * @param args
23      */
24     public static void main(String[] args) {
25         // TODO Auto-generated method stub
26         new MultiThreadDemo1_1();
27     }
28
29     class NewThread implements Runnable {
30         NewThread(String threadName){
31             name = threadName;
32             t = new Thread(this, name);
33             t.start();
34             System.out.println("new thread " + name + "begin");
35         }
36
37         public void run(){
38             try{
39                 for (int i=0; i<100; i++){
40                     System.out.println(name);
41                     Thread.sleep(30);
42                 }
43             } catch (InterruptedException e) {
44                 System.out.println("thread "+name+"error�Q?/span>");
45             }
46
47             System.out.println("thread " + name + "end;");
48         }
49
50         private String name;
51         private Thread t;
52     }
53
54 }

张树�?/a> 2007-08-31 19:34 发表评论