Delphi
tjjiang
这个作者很懒,什么都没留下…
展开
-
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 · 169 阅读 · 0 评论 -
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 · 199 阅读 · 0 评论 -
常用函数[不断添加]
将选定的窗口提到顶层获得焦点 函数定义:procedure SwitchToThisWindow(hWnd:Thandle;fAltTab:boolean);hWnd是将要提前的窗口的句柄,fAltTab是设置是否模拟一个ALT+TAB动作,如果为TRUE,则可以使最小化的窗口提到顶层获得焦点 函数调用: 这个函数无法直接调用,需要从User32.DLL导出procedure SwitchTo原创 2015-09-15 20:46:33 · 219 阅读 · 0 评论 -
自定义函数[不断添加]
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 · 313 阅读 · 0 评论