Delphi Base

摘要： function IsWin64: Boolean; var Kernel32Handle: THandle; IsWow64Process: function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL; stdcal 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const InputboxMessage = WM_US 阅读全文

摘要： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文

摘要： delphi 弹出输入框的InputQuery, InputQuery 函数用法 procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := InputBox('输入窗口标题', '输入提示', '默认输 阅读全文

摘要： uses ActiveX, ComObj; function GetWMIProperty(WMIProperty: string): string; var Wmi, Objs, Obj: OleVariant; Enum: IEnumVariant; C: Cardinal; begin Wmi 阅读全文

摘要： 利用DELPH 的ICMP控件检测服务器地址 function CheckNetServer():Boolean; begin IdIcmpClient1.Host := '192.168.1.230'; //服务器地址 IdIcmpClient1.Ping; if IdIcmpClient1.Re 阅读全文

摘要： 在implementation加入下面 uses Gauges; var Gauge1: TGauge; 加入Timer1控件，设为false procedure TForm1.Button1Click(Sender: TObject); var form2: TForm; begin form2 阅读全文

摘要： delphi 执行一个外部程序，当外部程序结束后言主程序立即响应 我们经常能看到360安全卫士进行windows系统升级时，执行windows升级程序，当升级程序执行完成后，360马上弹出提示框。这样的程序是如何做到的呢？下述代码就能完成！ uses shellAPI; procedure TFor 阅读全文

摘要： procedure TForm1.Button4Click(Sender: TObject); var hReadPipe,hWritePipe:THandle; si:STARTUPINFO; lsa:SECURITY_ATTRIBUTES; pi:PROCESS_INFORMATION; mDo 阅读全文

摘要： procedure RoundControl(Control: TWinControl; arc1, arc2: Integer); var R: TRect; Rgn: HRGN; begin with Control do begin R := Control.ClientRect; Rgn : 阅读全文

摘要： function IsHZ(ch: WideChar): boolean; var i: Integer; begin i := Ord(ch); if (i < 19968) or (i > 40869) then result := False else result := True; end; 阅读全文

摘要： //这是我三层开发中常用的一个函数，直接调用CreateSortID uses System.Win.ComObj,System.RegularExpressions,System.StrUtils,System.SysUtils; function CreateID(ll: Integer): s 阅读全文

摘要： MD5需要引入system.Hash，BASE64需要引入System.NetEncoding，这两个单元应该只有高版本的DELPHI IDE才有 （貌似XE5以上版本才有）。如果是D7的话，找第三方的库。 procedure TForm19.Button8Click(Sender: TObject 阅读全文

摘要： 先在窗体上放ImageList关联到cxDBTreeList，在cxDBTreeList的GetNodeImageIndex事件中写如下： procedure cxDBTreeList1GetNodeImageIndex(Sender: TcxCustomTreeList; ANode: TcxTr 阅读全文

摘要： procedure TfrmJianKongXinXi.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end; procedure TfrmJianKongXinXi.FormCloseQuery( 阅读全文

摘要： 常用操作Spreadsheet常用属性标题栏是否可见 Spreadsheet1.TitleBar.Visible=true标题栏背景颜色 Spreadsheet1.TitleBar.Interior.Color="Green"标题栏标题内容 Spreadsheet1.TitleBar.Caption 阅读全文

摘要： 第一步： 设置cxgrid的属性， OptionsView.Indicator = True 第二步： 写OnCustomDrawIndicatorCell方法 procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell(Sender: T 阅读全文

摘要： :::::::::::::::::::::::::::::::::::::::::::: :: Elevate.cmd - Version 4 :: Automatically check & get admin rights :::::::::::::::::::::::::::::::::::: 阅读全文

摘要： Delphi编写的一款锁屏小工具,双击程序立即锁屏，木有界面的。解除锁屏密码：alt+空格。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, D 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Bu 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; typeUSER_INFO_1 = r 阅读全文

摘要： WIN2012域用户添加和批量添加，不需要进行复杂的进电脑管理去添加 直接在软件上就可单个用户添加，可批量添加，并把指定的用户加入组 可以自定义组织单位，使用起来比较简单方便。 链接：https://pan.baidu.com/s/1MtgZfSBi0Op6TQLEEFw-Pw 提取码：bgcw 阅读全文

摘要： 服务器共享目录需要多账号登录时，需要重启电脑才可切换不同账号登 为了不重启电脑就可立即切换不同账号登，特意写了此款软件， 下载： 链接：https://pan.baidu.com/s/1g_4SCXldoCFDBZgD6ncKAg 提取码：pzf9 阅读全文