|
|
|
|
|
 |
delphi 把桌面上图标的文字的背景色改为透明 |
| |
日期：2007-06-27 11:51:40
点击：23 评论：0  |
|
procedure TForm1.Button1Click(Sender: TObject);
var wnd:HWND;
begin
Wnd := GetDesktopWindow;
Wnd := FindWindowEx(Wnd, 0, 'Progman', nil);
Wnd := FindWindowEx(Wnd, 0, 'SHELLDLL_DefView', nil);
Wnd := FindWindowEx(Wnd, 0, ' |
|
|
delphi 设置任务栏位置 |
| |
日期：2007-06-27 11:50:50
点击：7 评论：0 |
|
{ get the taskbar handle }
hApp := FindWindow('Shell_TrayWnd', '');
if hApp <> 0 then begin
if bOnTop then
setWindowPos(hApp,HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE)
else
setWin |
|
|
delphi 改变桌面的背景色 |
| |
日期：2007-06-27 11:49:59
点击：13 评论：0 |
|
SendMessage(GetDesktiopListViewHandle, $1001, 0, $ff);//临时的
SetSysColors也可以发变桌面的背景色：
Var
c1, c2: TCOLORREF;
Begin
c1:= COLOR_DESKTOP;
c2:= RGB(192,192,192);
SetSysColors( 1, c1, c2 );
End;//永久的 |
|
|
delphi 切换任务条时钟的显示 |
| |
日期：2007-06-27 11:49:09
点击：6 评论：0 |
|
hn := FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'TrayNotifyWnd',nil),0,'TrayClockWClass',nil);
if hn <> 0 then
ShowWindow(hn,SW_SHOW);//Hello, again
|
|
|
delphi 在桌面创建无小箭头的快捷方式 |
| |
日期：2007-06-27 11:48:02
点击：17 评论：0 |
|
我们如果要在桌面上建立一个快捷方式，我们通常是用IShellLink接口来生成一个.lnk文件。用这种方式创建，我们在桌面上得到的是一个左下方还含有小箭头的图标,右击它，你会看到正常的弹出菜单（含有复制、粘贴等）。但是你看桌面上IE的快捷方式，你会看到它是一个正常的 |
|
|
delphi 刷新系统桌面 |
| |
日期：2007-06-27 11:47:05
点击：19 评论：0 |
|
这条命令应该是最标准的答案，可以用来刷新桌面，同时重读所有的图标。
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, NULL, NULL);
|
|
|
delphi 改变开始按钮位置 |
| |
日期：2007-06-27 11:46:04
点击：14 评论：0 |
|
getcursorpos(p);
movewindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil),x,y,25,25,true);
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
p: tpoint;
begin
getcursorpos |
|
|
delphi 控制壁纸 |
| |
日期：2007-06-27 11:44:18
点击：10 评论：0 |
|
用Delphi实现壁纸更换
在Windows中，都是使用注册表对系统数据进行管理,有关壁纸的设置数据保存在Hkey_Current_User\Control Panel\Desktop的Wallpaper和TileWallpaper 等键值中,只要成功修改了这两个键值,然后发消息给Windows即可更换壁纸。在本例的程序中, |
|
|
delphi 控制壁纸 |
| |
日期：2007-06-27 11:44:18
点击：11 评论：0 |
|
用Delphi实现壁纸更换
在Windows中，都是使用注册表对系统数据进行管理,有关壁纸的设置数据保存在Hkey_Current_User\Control Panel\Desktop的Wallpaper和TileWallpaper 等键值中,只要成功修改了这两个键值,然后发消息给Windows即可更换壁纸。在本例的程序中, |
|
|
delphi 获得除了任务条的桌面大小 |
| |
日期：2007-06-27 11:43:15
点击：14 评论：0 |
|
SystemParametersInfo(SPI_GETWORKAREA,
0,
@r,
0);
Memo1.Lines.Add(IntToStr(r.Top));
Memo1.Lines.Add(IntToStr(r.Left));
Memo1.Lines.Add(IntToStr(r.Bottom));
Memo1.Lin |
|
|
delphi 隐藏和显示任务条 |
| |
日期：2007-06-27 10:38:50
点击：14 评论：0 |
|
procedure HideTaskBar;
var
hApp: HWND;
rcWork: TRect;
begin
{ get the taskbar handle }
hApp := FindWindow('Shell_TrayWnd', '');
if hApp <> 0 then begin
{ hide taskbar }
ShowWindow(hApp, SW_HIDE);
{ set wo |
|
|
delphi 程序缩小为任务右下角的小图标 |
| |
日期：2007-06-27 10:37:32
点击：24 评论：0 |
|
某些程序运行启动后并不出现在任务条中，而是缩小为任务条右下角的一个小图标，当鼠标移到这个小图标上时会出现一些提示信息、单击该小图标会执行一些特定的操作。便如任务条右下角的小喇叭图标，单击它会弹出一个简单的音量控制条，双击会启动另一个更大的音量控制 |
|
|
delphi 隐藏开始按钮 |
| |
日期：2007-06-27 10:36:31
点击：13 评论：0 |
|
If GetClassName(Child, C, SizeOf(C)) > 0
Then Begin
S := StrPAS(C);
If UpperCase(S) = 'BUTTON'
then begin
|
|
|
delphi 向任务条添加任务 |
| |
日期：2007-06-27 10:35:32
点击：9 评论：0 |
|
AButtonWnd :=CreateWindow( 'button' ,
'Caption' ,
WS_ChildWindow ,
0 ,
0 ,
75 ,
20 ,
|
|
|
delphi 清除系统启动后的桌面 |
| |
日期：2007-06-27 10:15:46
点击：13 评论：0 |
|
清除所有桌面ICON；
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explore
新建 DWORD值，名为 NoDesktop，值为 1，搞定。
然后“开始”菜单里没有主要内容：
|
|
|
