惨
惨不忍睹
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.
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.