在win2k下隐藏桌面图标的问题。(50分)

  • 主题发起人 主题发起人 惨不忍睹
  • 开始时间 开始时间

惨不忍睹

Unregistered / Unconfirmed
GUEST, unregistred user!
这是我在DFW上看到的一个贴子。为什么在2K下运行不能隐藏桌面图标呢?
program Desk;
{=============================}
{========桌面隐藏/显示========}
{============彭 涵============}
{============v 0.1============}
{=============================}
uses
Windows,
IniFiles,
SysUtils;

{$R *.res}
var
hDesktop : THandle;
MyIni: TIniFile;
bShow: boolean;
begin

hDesktop := FindWindow('ProgMan', nil);
MyIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Desk.ini');
with MyInido

begin

bShow := ReadBool('SETUP', 'DESKTOP_SHOW', False);
if bShow then

ShowWindow(hDesktop, SW_SHOW)
else

ShowWindow(hDesktop, SW_HIDE);
WriteBool('SETUP', 'DESKTOP_SHOW', not bShow);
UpdateFile;
Free;
end;

end.

 
后退
顶部