摘要： UsesWindows,Registry;function GetShellFolders(strDir: string): string;const regPath = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';var Reg: TRegistry; strFolders: string;begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey(regPath, fal... 阅读全文

摘要： 使用命令关闭占用80端口的程序sudo fuser -k 80/tcp 阅读全文

摘要： procedure CMSysColorChange (var Message: TMessage); message CM_SYSCOLORCHANGE;procedure CMParentColorChanged (var Message: TWMNoParams); message CM_PARENTCOLORCHANGED;procedure CMDialogChar (var Message: TCMDialogChar); message CM_DIALOGCHAR;procedure CMEnabledChanged (var Message: TMessage); messag 阅读全文

摘要： procedure WMSetFocus (var Message: TWMSetFocus); message WM_SETFOCUS; //获得焦点procedure WMKillFocus (var Message: TWMKillFocus); message WM_KILLFOCUS; //失去焦点procedure WMGetDlgCode (var Message: TWMGetDlgCode); message WM_GETDLGCODE;WM_GETDLGCODE = $0087;发送此消息给某个与对话框程序关联的控件，widdows控制方位键和TAB键使输入进入此控件通过响 阅读全文

摘要： procedure WMSize (var Message: TWMSize); message WM_SIZE;参数说明wParam:Specifies the type of resizing requested.通常用来向别的窗口发送消息时,需要指定的附加信息ValueMeaningSIZE_MAXHIDEMessage is sent to all pop-up windows when some other window is maximized.SIZE_MAXSHOWMessage is sent to all pop-up windows when some other wi. 阅读全文