- 博客(4)
- 收藏
- 关注
原创 自定义函数[不断添加]
1、得到系统目录User Registry;function GetShellFolders(strDir: string): string;const regPath = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';var Reg: TRegistry; strFolde
2015-09-15 21:04:47 321
原创 常用函数[不断添加]
将选定的窗口提到顶层获得焦点 函数定义:procedure SwitchToThisWindow(hWnd:Thandle;fAltTab:boolean);hWnd是将要提前的窗口的句柄,fAltTab是设置是否模拟一个ALT+TAB动作,如果为TRUE,则可以使最小化的窗口提到顶层获得焦点 函数调用: 这个函数无法直接调用,需要从User32.DLL导出procedure SwitchTo
2015-09-15 20:46:33 224
原创 TreeView常用操作 [不断添加]
//添加数据var T, T1, T2: TTreeNode;begin T:= TreeView.Items.AddChildFirst(nil, '第一层文字'); T1:= TreeView.Items.AddChild(T, '第二层文字'); T2:= TreeView.Items.AddChild(T1, '第三层文字'); T3:= TreeVie
2015-09-11 21:13:55 209
原创 Dll文件动态调用
procedure TMakeCode.ShowDllForm;type TShowForm = Function(PH: HWnd; MemoW: TMemo):Integer;Stdcall;var ShowDllForm: TShowForm; DllFileName: String; //例如 C:\Dll\Dllname.dll Ha
2015-09-11 20:44:19 173
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人