- 博客(36)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 文件放过进剪贴板
procedure CopyFilesToClipboard(FileList: string);var DropFiles: PDropFiles; hGlobal: Thandle; iLen: Integer;begin iLen := Length(FileList) * SizeOf(Char) + 2; FileList := FileList + #0#0;...
2019-12-18 13:03:01
276
原创 DBGridEh - MemTableEh
TDBGridEhOptions选项dgMultiSelect 选择多行dgRowSelect 选择整行dghRowHighlight 显示选择区域OptionsEh选项dghRowHighlight 选中整行高亮//移动指针MemTableEh1.Locate('fname', Tab3_DBGridEh2.Fields[...
2018-07-30 01:24:35
2615
原创 两个TFrom窗体之间传送消息
接收消息========================unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: ...
2018-04-08 17:07:18
678
原创 ListBox
添加内容ListBox1.Items.Add('item1');显示选中内容ListBox1.Items[ListBox1.ItemIndex];
2016-07-29 18:31:30
395
原创 Delphi全局热键注册
private { Private declarations } Aatom: ATOM; procedure hotkey(var msg: TMessage); message WM_HOTKEY;procedure TForm1.FormCreate(Sender: TObject);begin if FindAtom('ZWXhotKey') = 0 th
2016-07-28 17:21:51
1382
2
原创 HTML DOM方法
一些 DOM 对象方法这里提供一些您将在本教程中学到的常用方法：方法描述getElementById()返回带有指定 ID 的元素。getElementsByTagName()返回包含带有指定标签名称的所有元素的节点列表（集合/节点数组）。getElementsByClassName()返回包含带有指定类名的所有元素的节点列表
2015-12-29 23:18:46
507
原创 GetLastError()返回值列表
GetLastError()返回值列表:〖0〗-操作成功完成。〖1〗-功能错误。〖2〗-系统找不到指定的文件。〖3〗-系统找不到指定的路径。〖4〗-系统无法打开文件。〖5〗-拒绝访问。〖6〗-句柄无效。〖7〗-存储控制块被损坏。〖8〗-存储空间不足，无法处理此命令。〖9〗-存储控制块地址无效。〖10〗-环境错误。〖11〗-试图加载格式错误的程序。
2015-06-09 18:36:35
1797
1
原创 ShellExecute
//静默导入注册表 ShellExecute(0, 'Open', 'regedit.exe', '/s Wizard.reg', 'c:\', SW_HIDE);
2014-11-04 13:05:03
529
原创 Delphi 注册表操作
procedure TForm1.Button2Click(Sender: TObject);Var Reg: TRegistry;begin Reg := TRegistry.Create; Reg.RootKey := HKEY_CLASSES_ROOT; Reg.DeleteKey('.386'); Reg.CloseKey; Reg.Free;E
2014-07-29 19:58:38
568
原创 文件及文件夹
procedure TForm1.Button1Click(Sender: TObject);begin TDirectory.delete('D:\TDDownload\fa', true);end;
2014-07-29 13:47:22
347
原创 系统服务
function StopServies(sServiceName: String): boolean; // 停止某个服务；var schService: SC_HANDLE; schSCManager: SC_HANDLE; ssStatus: TServiceStatus;begin schSCManager := OpenSCManager(nil, nil, SC_M
2014-07-29 12:06:00
534
原创 TextFile
procedure TForm1.Button1Click(Sender: TObject);Var Fil: TextFile; Str: String;begin Memo2.Clear; AssignFile(Fil, ExtractFilePath(Application.ExeName) + 'GroupNumber.txt'); Reset(Fil); wh
2014-06-28 16:03:06
436
原创 Api
EnableWindow //启用或禁用鼠标和键盘输入到指定的窗口或控制。 当输入被禁止时，窗口不接收输入，如鼠标点击和按键。 当输入被启用，窗口接收所有的输入
2013-09-01 16:08:52
590
原创 Zip
//需要引用单元 'Zip'Var Zf: TZipFile;Begin Zf.ZipDirectoryContents('F:\Test.Zip', 'F:\Test斗战神\'); 将 F:\Test斗战神\ 文件夹内所以文件及子目录压缩到Test.Zipend;
2013-08-08 05:58:19
600
原创 TDBGrid
//多选行取值procedure TForm1.Button1Click(Sender: TObject);Var i: Integer;begin for i := 0 to DBGrid1.SelectedRows.Count - 1 do Begin DBGrid1.DataSource.DataSet.GotoBookmark(DBGrid1.SelectedRo
2013-06-16 01:29:45
729
原创 TRichEdit
// 加在OnChange事件中：SendMessage(RichEdit1.Handle, EM_SCROLLCARET, 0);// 卷屏到光标处SendMessage(RichEdit1.Handle, EM_SCROLL, SB_LINEDOWN, 0);// 向下卷屏一行SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_BOTTOM,
2013-06-09 21:21:06
1051
原创 IdTCPServer 、IdTCPClient
//OnConnect事件 连接成功后触发//获取IP及端口信息 procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);begin AContext.Connection.Socket.Binding.PeerIP; AContext.Connection.Socket.Binding.PeerPort;end;/
2013-06-09 10:07:06
2596
1
原创 TPerlRegEx 正则
Gz := TPerlRegEx.Create; Gz.Subject := Form2.Memo1.Text; Gz.Options := [preSingleLine]; Gz.RegEx := 'id=name_(.*?)\s.*?title=(.*?)\s.*?(.*?)'; while Gz.MatchAgain doS
2013-05-31 08:05:31
735
转载 延迟执行
//调用方法 Delay(1000);procedure TForm1.Delay(msecs: integer);var Tick: DWord; Event: THandle;begin Event := CreateEvent(nil, False, False, nil); try Tick := GetTickCount + DWord(msecs);
2013-05-30 20:28:57
623
转载 进程操作
//需要引用 TLHelp32单元//根据 进程名结束进程 //调用 EndProcess('QQ2013')procedure EndProcess(AFileName: string);const PROCESS_TERMINATE = $0001;var ExeFileName: String; ContinueLoop: BOOL; FSnapshotHandle
2013-05-30 11:47:21
530
原创 TImage 控件实例
//需要引用 JPEG单元 直接从内存显示图片 Var Jpg: TJPEGImage; Begin IdHTTP1.Get(Gz.Groups[1], Stream); Jpg := TJPEGImage.Create; Stream.Position := 0; Jpg.LoadFromStream(Stream); Image3.Pic
2013-05-30 10:52:11
1063
转载 Delphi 目录及子目录所有文件删除
//需要引用单元 shellapifunction DelDirectory(const Source: string): boolean;{ 删除目录 }var fo: TSHFileOpStruct;begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_DELE
2013-05-28 03:03:11
1019
原创 TOpenDialog
1．TOpenDialog组件的典型用法 打开”对话框是用TOpenDialog组件实现的，TOpenDialog组件是非可视组件。 Filter属性用于设置文件过滤器，让对话框只列出特定类型的文件。在设计时可以单击Filter属性旁的省略号“.”按钮，打开“Filter.Editor”对话框，在“Filter.Name”栏键入关于过滤器的简短说明，在“Filter”栏键入通配符，在设计期
2013-05-18 05:20:33
600
原创 枚举窗口
// 为指定的父窗口枚举子窗口、按钮function EnumChildWndProc(AhWnd: LongInt; AlParam: lParam): boolean; stdcall;var WndClassName: array [0 .. 254] of Char; WndCaption: array [0 .. 254] of Char;begin GetClassN...
2013-05-16 21:31:19
728
原创 keybd_event
//直接转换对应键盘码function InputChar(str: string): Boolean;var i: integer; c: byte;begin for i := 1 to Length(str) do begin c := VkKeyScan(str[i]) and 255; // 输入文字 keybd_event(c, 0, 0, 0);
2013-05-16 02:42:53
716
原创 模拟键盘
SendMessage(Myhwnd, WM_KEYDOWN, VK_TAB, 1); // 发送Tab键SendMessage(Myhwnd, WM_KEYUP, VK_TAB, 1);SendMessage(Myhwnd, WM_KEYDOWN, VK_RETURN, 1); // 发送Enter键SendMessage(Myhwnd, WM_KEYUP, VK_RETURN, 0)
2013-05-15 22:31:12
845
原创 TMemo
//全选功能procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin If (Shift = [ssCtrl]) And (Key = 65) then Memo1.SelectAll;end;//鼠标点击指定行,显示指定行数据procedure T...
2013-05-14 03:29:55
1010
原创 WebBrowser
获取Html源码uses mshtml;var iall : IHTMLElement;begin if Assigned(WebBrowser1.Document) then begin iall := (WebBrowser1.Document AS IHTMLDocument2).body; while iall.parentElement <
2013-05-14 03:19:01
1565
原创 TStringList
//TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1);
2013-05-06 23:52:45
627
原创 函数大杂烩
//目录保存路径procedure TForm2.Button1Click(Sender: TObject);vars:string;begin if SelectDirectory('选择文件夹','',s) then Edit1.Text := s+'\';end;//判断'目录'或'文件'是否存在procedure TForm1.Button1Click(Sender: ...
2013-03-12 08:21:39
1152
原创 TEdit
//居中显示SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE)or ES_CENTER);//限制只能输入数字procedure TForm4.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);begin if Not(Key i
2013-03-12 06:26:00
1012
原创 Accsee数据库
Accsee数据库创建及建表Function Create_AC_Table(): Integer;var Cat: Olevariant; Tadoq: TADOQuery;begin If Not FileExists(Fle) then Begin Cat := CreateOleobject('ADOX.Catalog'); Cat.Create('
2013-03-12 06:18:49
1701
原创 TListView
//删除当前行for i:=ListView1.Items.Count-1 downto 0 Doif ListView1.Items[i].Caption = Edit1.Text thenbeginListView1.Items.Item[i].Delete();end;//添加数据Var wIp: String; wPort: Word; wItem: TListI
2013-03-12 06:06:31
593
Konopka Signature VCL Controls 6 (Raize Components 6.2.3) for 一键安装（附带中文安装说明）.rar
2019-05-22
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人