青草 绿叶 百合

//BorderStyle:bsNone的情况下在任务栏右键点击也可以出现对话框[最小化] nStyle := GetWindowLong(Handle, GWL_STYLE); nStyle := nStyle or WS_SYSMENU or WS_MINIMIZEBOX; SetWindowLong(Handle, GWL_STYLE, nStyle); //删除任务栏右键菜单选项[移动、最大化、大小] hm := GetSystemMenu(Handle, Fals

procedure RemoveDeadIcons2;var wnd : cardinal; rec : TRect; w,h : integer; x,y : integer;begin // find a handle of a tray wnd := FindWindow('Shell_TrayWnd', nil); wnd := FindWindowEx(w

//Pin Icon to Win7 Taskbar ShellExecute(Application.Handle, 'TaskbarPin', 'APPNAME', nil, nil, SW_SHOW);

procedure DeleteDir(DirPath: string);begin DirPath := 'rd "' + DirPath + '" /S /Q'; ShellExecute(Application.Handle, nil, 'cmd.exe', PChar('/c ' + DirPath), nil, SW_HIDE);end;