- 博客(13)
- 资源 (8)
- 收藏
- 关注
翻译 树的动态查询生成
procedure ReadTree(tnode: TTreeNode; Fvalue: Integer);procedure TForm1.Button5Click(Sender: TObject);begin ReadTree(nil,0);end;procedure TForm1.ReadTree(tnode:TTreeNode;Fvalue: Integer);V
2008-05-30 10:02:00 524
原创 获得鼠标针指下窗体的Name 缩进伸出
========================= 获得鼠标针指下窗体的Name 缩进伸出=====================//自定义函数GetFormNameAt,获得鼠标针指下窗体的Namefunction GetFormNameAt ( X, Y : integer ) : string; var P:TPoint; W:TWinControl; begin P.X :=
2008-05-28 11:33:00 705
原创 获取鼠标坐标
======================== 获取鼠标坐标 =======================================//获取鼠标在窗体中的当前位置procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var s
2008-05-28 11:31:00 859
原创 结束进程
uses TLHelp32; EndProcess(calc.exe);procedure TForm1.EndProcess(AFileName: string);const PROCESS_TERMINATE = $0001;var ContinueLoop: BOOL; FSnapShotHandle: THandle; FProcessEntry32: TProcess
2008-05-28 11:29:00 511
原创 Ehlib 3.0 DBGrideh
=========================================================================Ehlib 3.0 DBGrideh ==============================================================================DBGRIDEH 是Enlib 3.
2008-05-28 10:36:00 2719
原创 Key 键值
常量名称 十六位值$ 十位值# 鼠标或按钮的值 VK_LBUTTON 1 1 鼠标左键钮 VK_RBUTTON 2 2 鼠标右键钮 VK_CANCEL 3 3 Control-break执行 VK_MBUTTON 4 4 鼠标中键钮 VK_BACK 8 8 Backspace键 VK_TAB 9 9 Ta
2008-05-20 09:53:00 1813 1
原创 遍历Access表
procedure TForm1.Button1Click(Sender: TObject);varsql:string;SL: TStrings;i:integer;begin ADOConnection1.Connected :=True; sl:= TStringList.Create; try ADOConnection1.GetTableNames(SL, False);
2008-05-20 09:49:00 1493
原创 屏蔽系统热键
在自己的程序中将任务栏隐藏起来,并屏蔽Ctrl+Alt+Del和Alt+Tab等系统热键,也是很有趣的。要实现它们比较容易,但千万别忘了恢复正常,另外,本例中使用了3个API函数:FindWindow、ShowWindow和SystemParametersInfo,在使用它们之前一定要进行申明。Implementation var Hwnd:THandle; Tmp:int
2008-05-20 09:48:00 1116
原创 获取 IP 地址
uses winsock;Function TForm1.GetIPAddr : String;type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr;var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; I : Int
2008-05-20 09:47:00 517
原创 代码压缩旋转图片
procedure ChangPicSize(SourceFileName, DescFileName: string; X,Y:Integer);var jpg,SourceJpg: TJPEGImage; bmp, SourceBmp, tmpbmp: TBitmap;begin if UpperCase(ExtractFileExt(SourceFileName)) = .JPG
2008-05-20 09:46:00 543
原创 程序运行一次
program EmpControl;uses Forms, windows, Dialogs, MainUnit in MainUnit.pas {MainForm}, UploadEmpBaseUnit in UploadEmpBaseUnit.pas {frmUploadEmpBase};{$R *.res} var hMutex:HWND;begin A
2008-05-20 09:44:00 399
原创 运行隐藏 热键呼出
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; E
2008-05-20 09:43:00 623
原创 分割字符串
function SplitStr(Source:String;ch:string):TStringList;var temp:String; i:Integer;begin Result := TStringList.Create; if Source= then exit; temp:=Source; i:=pos(ch,Source); if i > 0 the
2008-05-20 09:42:00 335
MS SQL 存储过程解密
2011-12-07
MD5 加密 源码
2011-12-07
DES 加密 解密 源码
2011-12-07
SHA1源码加密
2011-12-07
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人