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 · 479 阅读 · 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 · 461 阅读 · 0 评论