超级简单问题，散分(100分)(100分)

huifi · 2002-08-15

那位大虾知道windows任务栏中的快速启动栏中的《[red]显示桌面[/red]》按钮的功能是用什 么函数实现的或在delphi怎么实现？？？？？？？ 在线等待。。。。。。

Yves · 2002-08-15

我觉得 你可以最小化所有窗口 即是了

Yves · 2002-08-15

使用 api函数： 函数原形 BOOL CloseWindow(HWND hWnd);

Writer · 2002-08-15

在程序中运行系统目录下的"显示桌面.scf"就可以

I_Love_Delphi · 2002-08-15

有以下方法可以考虑使用： 一是获取所有窗口的句柄，然后最小化所有窗口。查找窗口的API是EnumWindows函数和 FindWindow函数，两个函数分别用于枚举所有窗口和查找特定窗口，本人的思路是先用第一个 函数列出所有窗口，然后一一对其进行最小化。至于最小化用什么函数，我不清楚。 另一种方法为： 显示桌面的快捷键是CTRL+D,我们可以利用消息来实现。我们可在程序中产生一个系统按键 （CTRL+D）的消息，然后让系统捕获到该消息，系统就会自己执行显示桌面的程序了。 还有一种方法就是执行显示桌面的程序，该程序好像是一个快捷方式，不知是在WINDOWS目录下还 是在系统目录下可以找到的。至于是什么名称，呵呵，我忘记了。 不好意思，初来此地，水平有限，回答问题总是一半，各位海涵。

Yves · 2002-08-15

最小化用 原形： BOOL CloseWindow(HWND hWnd);

jsxjd · 2002-08-16

非常感谢你的启发，我想能实现这一功能的人不会太多。 本来我不会，经过努力，终止实现了，以下过程将该死 的“记录本”放入快速启动区（WIN98）： 首先在 uses 中加入 registry,comobj,activex,shlobj, 再添加一按钮，粘贴以下代码，如有问题及时联系。 procedure TForm1.Button1Click(Sender: TObject); var   Reg: TRegIniFile;   WFileName: WideString;   AnObj: IUnKnown;   Shlink: IShellLink;   PFile: IPersistFile;   programfile,linkfile:string; begin   programfile:='c:/windows/notepad.exe';   linkFile:='记事本';   try   coinitialize(nil);   AnObj := CreateComObject(CLSID_ShellLink);   shLink := AnObj as IShellLink;   PFile := AnObj as IPersistFile;   shLink.SetPath(PChar(programfile));   shLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramFile)));   Reg := TRegIniFile.Create('Software/MicroSoft/Windows/CurrentVersion/GrpConv');   WFileName := Reg.ReadString('MapGroups', 'Quick Launch', '') +     '/' + linkfile + '.lnk';   PFile.Save(PWChar(WFileName), True);   Reg.Free;   except   end; end;

huifi · 2002-08-16

to Writer:   找遍整个系统也没有找到"显示桌面.scf"

jsxjd · 2002-08-16

你成功了没有？等会儿告诉你。

huifi · 2002-08-16

to jsxjd: 我在winXP中试了： [h2][red]不成功!!!!!!!![/red][/h2]

jsxjd · 2002-08-16

你有 98 环境吗？我在WIN98 下绝对成功，否则不会有觉不睡.

jsxjd · 2002-08-16

其实不管在什么环境下，改变一下思路就可以了。

huifi · 2002-08-16

to jsxjd: 98 环境我没有，我要的"显示桌面"怎么实现???

jsxjd · 2002-08-16

马上告诉你，等着。。。。

jsxjd · 2002-08-16

将 GrpConv 改成 Explorer 将 MapGroups 改成 Shell Folders 将 Quick Launch 改成 Desktop 你转得真快，其实你什么都明白了， 因为我连测试的 showmessage 都没拿掉。

jsxjd · 2002-08-16

能这样实现我觉得很高兴，以前我都没想到。非常感谢。 能告诉我结果吗？

jsxjd · 2002-08-16

你是要实现“显示桌面”功能？？

huifi · 2002-08-16

我是要实现“显示桌面”功能，不过你实现在功能也不错，我也实现了 非常感谢，就是还差“显示桌面”功能，你能实现吗？？？

jsxjd · 2002-08-16

显示桌面功能更简单,一条语句就实现： uses shellapi   ShellExecute(GetDesktopWindow(),   'open','C:/WINDOWS/Application Data/Microsoft/Internet Explorer/Quick Launch/显示桌面.scf',     '','',0); 当然这是在98下的，你应该知道在 xp 下如何做？

huifi · 2002-08-16

不知路径是否可从注册表中读出，不同的系统路径不同，如我的winXP就是： 'C:/Documents and Settings/.../Internet Explorer/Quick Launch显示桌面.scf' [red][h2]非常非常非常非常感谢!!!![/h2][/red]

超级简单问题，散分(100分)(100分)

huifi

Unregistered / Unconfirmed

Yves

Unregistered / Unconfirmed

Yves

Unregistered / Unconfirmed

Writer

Unregistered / Unconfirmed

I_Love_Delphi

Unregistered / Unconfirmed

Yves

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

huifi

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

huifi

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

huifi

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

huifi

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

huifi

Unregistered / Unconfirmed

Similar threads