delphi
ych121
爱好逻辑思考
展开
-
创建四角星按钮
//将控件设为四角星arc1, arc2分别为宽高直径procedure Round4PieControl(Control: TWinControl; arc1, arc2: Integer);var R: TRect; Rgn,Rgn1,Rgn2,Rgn3,Rgn4: DWORD; width2,height2: integer;begin //宽高一半原创 2017-04-17 15:12:07 · 471 阅读 · 0 评论 -
隐藏桌面、任务栏、开始菜单
var hTaskBar, hDeskIcon: HWND; hwndDesk,hLastFind,hButton: HWND;begin hTaskBar := FindWindow('Shell_TrayWnd', nil);//find taskbar handle ShowWindow(hTaskBar,SW_HIDE); hDeskI原创 2018-01-31 19:34:36 · 443 阅读 · 0 评论