• Eclipse打包成JAR包读取外部JAR包和外部配置文件(源码)

    Eclipse 打包 JAR包 外部配置文件

    0
    861
    2.94MB
    2013-08-20
    31
  • Eclipse打包成JAR包读取外部JAR包和外部配置文件

    Eclipse打包成JAR包读取外部JAR包和外部配置文件 Eclipse 打包 jar 外部JAR 外部配置文件

    1
    1947
    2.94MB
    2013-08-17
    45
  • java通过线程控制程序执行超时(新)

    java通过线程控制程序执行超时(新) 基本数据类型 反射 线程 超时

    3
    1053
    7KB
    2013-08-16
    48
  • java通过线程控制程序执行超时

    java通过线程控制程序执行超时,多线程,反射

    4
    315
    6KB
    2013-08-15
    43
  • delphi 装饰模式

    TPerson = class private Name:string; ListBox:TListBox; public constructor Create(AName:string;AListBox:TListBox); overload; constructor Create;overload; procedure Show;virtual; end; TFinery = class(TPerson) protected Component:TPerson; public procedure Decorator(Acomponent:TPerson); procedure Show;override; end; TShirts = class(TFinery) public procedure Show;override; end; TBigTrouser = class(TFinery) public procedure Show;override; end;

    0
    46
    206KB
    2011-06-21
    10
  • delphi 简单工厂模式

    type TIProduct = class str:string; function Print():string;virtual; end; type TProduct_A = class(TIProduct) private public function Print():string;override; end; type TProduct_B = class(TIProduct) private public function Print():string;override; end; type TSimpleFactory = class private public function CreateProduct(A:string):TIProduct; end;

    0
    74
    196KB
    2011-06-20
    10
  • delphi 隐藏字符*的获取

    unit UnitMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var buffer:PChar;//存储空间 L:Integer;//密码框内容的长度 begin L:=GetWindowTextLength(Edit1.Handle);//取密码框内容的长度 GetMem(buffer,L+1);//分配内存空间,注意加1,因为ASCII码以"\0"结尾 SendMessage(Edit1.Handle,WM_GETTEXT,L+1,Integer(buffer)); Label2.Caption:=string(buffer);//显示 FreeMem(buffer);//释放内存 end; end.

    0
    78
    190KB
    2011-05-17
    10
  • API 删除到回收站

    function RecycleFile(sFileName:string):Boolean; var FOS:TSHFileOpStruct; begin FillChar(FOS,SizeOf(FOS),0);{记录清零} with FOS do begin wFunc:=FO_DELETE; //删除 pFrom:=PChar(sFileName); fFlags:=FOF_ALLOWUNDO; //移入回收站,而不是物理删除 end; Result:=(SHFileOperation(FOS)=0); end;

    0
    176
    200KB
    2011-05-17
    12
  • delphi_遍历文件夹

    while SRI = 0 do begin if (SR.Name = '.') or (SR.Name = '..') then begin //不用做 end else if SR.Attr = faDirectory then begin if CheckBox1.Checked then begin Start(APath + '\' + sr.Name, SR.Name, ndRoot); end; end else begin Num := Num + 1; Label2.Caption := IntToStr(Num); ListBox1.Items.Add(SR.Name); nd := TreeView1.Items.AddChild(ndRoot, SR.Name); end; SRI := FindNext(SR); end;

    4
    263
    219KB
    2011-03-24
    35
  • delphi_只允许运行一个exe实例

    program OnlyOne; uses Forms, Windows, Dialogs, UnitMain in 'UnitMain.pas' {Form1}; resourcestring FMutex = 'MUTEX_ONLY_ONE'; //互斥对象名 {$R *.res} var hMutex:HWND; iRet:Integer; begin

    5
    206
    193KB
    2011-03-23
    18
  • 笔耕不辍

    累计1年每年原创文章数量>=20篇
  • 创作能手

    授予每个自然周发布1篇到3篇原创IT博文的用户
关注 私信
上传资源赚积分or赚钱