隐藏桌面和任务栏的代码，自己的_Delphi资料

首页 Delphi资料好文收藏股海冲浪自制小软件 E4A易安卓手机编程 ASP资料 Python PHP资料在线字典留言板

隐藏桌面和任务栏的代码，自己的

阅读 449 次更新时间：2014/4/18

procedure TForm1.Button1Click(Sender: TObject);

var
hDesktop : THandle;
i:Integer ;
begin
 //隐藏桌面
hDesktop := FindWindow('Progman', nil);
ShowWindow(hDesktop, SW_SHOW);
//隐藏任务栏
i:=FindWindow('Shell_traywnd',nil);
ShowWindow(i,SW_SHOW  );
end;