季 動 青 春

转载 流（Stream）

翻译 树的动态查询生成

procedure ReadTree(tnode: TTreeNode; Fvalue: Integer);procedure TForm1.Button5Click(Sender: TObject);begin  ReadTree(nil,0);end;procedure TForm1.ReadTree(tnode:TTreeNode;Fvalue: Integer);V

原创 获得鼠标针指下窗体的Name 缩进伸出

========================= 获得鼠标针指下窗体的Name 缩进伸出=====================//自定义函数GetFormNameAt，获得鼠标针指下窗体的Namefunction GetFormNameAt ( X, Y : integer ) : string;　var　　P:TPoint;　　W:TWinControl;　begin　　P.X :=

原创 获取鼠标坐标

======================== 获取鼠标坐标 =======================================//获取鼠标在窗体中的当前位置procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);var  s

原创 结束进程

uses TLHelp32; EndProcess(calc.exe);procedure TForm1.EndProcess(AFileName: string);const  PROCESS_TERMINATE = $0001;var  ContinueLoop: BOOL;  FSnapShotHandle: THandle;  FProcessEntry32: TProcess

原创 Ehlib 3.0 DBGrideh

  =========================================================================Ehlib 3.0 DBGrideh   ==============================================================================DBGRIDEH 是Enlib 3.

原创 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

原创 遍历Access表

procedure TForm1.Button1Click(Sender: TObject);varsql:string;SL: TStrings;i:integer;begin  ADOConnection1.Connected :=True;  sl:= TStringList.Create;  try    ADOConnection1.GetTableNames(SL,   False);

原创 屏蔽系统热键

    在自己的程序中将任务栏隐藏起来，并屏蔽Ctrl+Alt+Del和Alt+Tab等系统热键，也是很有趣的。要实现它们比较容易，但千万别忘了恢复正常，另外，本例中使用了3个API函数：FindWindow、ShowWindow和SystemParametersInfo，在使用它们之前一定要进行申明。Implementation　var Hwnd:THandle;    　Tmp:int

原创 获取 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

原创 代码压缩旋转图片

procedure ChangPicSize(SourceFileName, DescFileName: string; X,Y:Integer);var  jpg,SourceJpg: TJPEGImage;  bmp, SourceBmp, tmpbmp: TBitmap;begin  if UpperCase(ExtractFileExt(SourceFileName)) = .JPG

原创 程序运行一次

program EmpControl;uses  Forms,  windows,  Dialogs,  MainUnit in MainUnit.pas {MainForm},  UploadEmpBaseUnit in UploadEmpBaseUnit.pas {frmUploadEmpBase};{$R *.res}  var    hMutex:HWND;begin  A

原创 运行隐藏 热键呼出

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    E

原创 分割字符串

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

转载 清理内存

procedure TForm1.ClearMemory;begin  if Win32Platform = VER_PLATFORM_WIN32_NT then   begin    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);    application.ProcessMessages;  end;end

原创 ms sql DB操作

backup   database   數據庫名稱   to   disk=路徑   with   initrestore   database   數據庫名稱   from   disk=路徑   with   replaceexec sp_rename bs_v5,bsv5,database  alter   table   表   add   co

转载 Active DLL注册

procedure RegisterDll;  try   img:=CreateoleObject(sxImage.image);  except    RegisterDll;    img:=CreateoleObject(sxImage.image);  end;procedure TForm1.RegisterDll;type  TDllRegisterServer=func

转载 messageBox

Application.messageBox(是否删除,提示信息,mb_ok+mb_iconinformation);APPLICATION.MESSAGEBOX(CONST TEXT,CAPTION:PCHAR;FLAGS:LONGINT=MB_OK):INTEGER;其中各参数含义如下:TEXT:用于表示提示窗口显示的文本,为一字符串;CAPTION:用于在提示窗口标题栏中显示文本

转载 在Delphi中使用TStream读写数据

在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性和方法。     TStream类中定义的属性介绍如下：     1、Size:此属性以字节返回流中数据大小。     2、Position:此属性控制流中存取指针的位置。     Tstream中定义的虚方法有四个：     1、Read:此方法实现将数据从流中读出。函数原形为：     Function   Rea

原创 遍历指定目录下指定类型文件的函数

// ================================================================// 遍历某个文件夹下某种文件,// 使用说明//       _GetFileList(ListBox1.Items,c:/*.doc);//           _GetFileList(MyTStringList,c:/*.exe);// ====

转载 在Delphi中进行指纹仪的二次开发

一.指纹仪简介   指纹具有"物证之首"的美誉。科学界对指纹的论断是：假设地球上有50亿人口， 经过300年才会有两个相同的指纹出现。可见，指纹的唯一性是具有无可辩驳的地位。   指纹仪第一次改变了我们熟知的数字化安全系统。此前，一切都依赖于密码。你必须用自己的用户名，并且对你的系统进行配置。你必须遮住键盘以免其它人看见你的密码。然而稍有疏忽的话，任何人都很能容易窃取到你的密码。      

转载 快速开发ActiveX控件

ActiveX控件也就是一般所说的OCX控件，它是ActiveX技术的一部分。ActiveX是微软公司推出的基于组件对象模型COM的技术，包括对Windows 32位应用编程接口(Win32 API)和组件对象模型的一系列扩充和增强，目标是把计算机桌面环境与因特网环境集成起来，同时保护在Windows技术中现有的开发投资。微软的ActiveX技术根本上就是修改过的OCX技术，使它能够跨越Inter

转载 RegisterHotKey函数

转载:RegisterHotKey()实现Alt+E的快捷键组合功能2007-07-30 09:48 [问题提出]     有的程序需要自定义组合键完成一定功能,如何实现?   [解决方法]     RegisterHotKey函数原型及说明：     BOOL RegisterHotKey(     H

原创 dll的静态调用和动态调用使用说明及简单实例

一、编写DLL其实也不是一件十分困难的事，只是要注意一些事项就够了。为便于说明，我们先举一个例子。library Delphi;usesSysUtils,Classes;function TestDll(i:integer):integer;stdcall;beginResult:=i;end;exportsTestDll;beginend.上面的例子是不是很简单？熟悉De

转载 异构数据导入导出

 【异构数据导入导出】在SQLServer中执行SELECT * into bmkFROM OpenDataSource( Microsoft.Jet.OLEDB.4.0,   Data Source="e:/share";User ID=Admin;Password=;Extended properties=dBase 5.0)...bmk这样就可以把e:/share中的bmk.dbf表

原创 纪录随滑轮滚动

在窗体上添加一个ApplicationEvent控件，然后在它的OnMessage事件里写以下代码： procedure TForm1.ApplicationEvents1Message(var Msg:tagMSG;var Handled:Boolean); begin  if(DBGrid1.Focused)And(Msg.message=WM_MOUSEWHEEL)then  begin  

转载 SQL語句優化技術分析

 SQL語句優化技術分析 操作符优化IN 操作符 用IN写出来的SQL的优点是比较容易写及清晰易懂，这比较适合现代软件开发的风格。但是用IN的SQL性能总是比较低的，从ORACLE执行的步骤来分析用IN的SQL与不用IN的SQL有以下区别：ORACLE试图将其转换成多个表的连接，如果转换不成功则先执行IN里面的子查询，再查询外层的表记录，如果转换成功则直接采用多个表的连接方式查询。由此可见

转载 Delphi函數大全

Abort                 函數    引起放棄的意外處理Abs                   函數    絕對值函數AddExitProc           函數    將一過程添加到運行時庫的結束過程表中Addr                  函數    返回指定物件的位址AdjustLineBreaks      函數    將給定字串的行分隔符號調整為CR/

转载 Delphi技巧集

◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL： var xpan