【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了usysset.pas提供大家参考,希望对大家有所帮助!
unit usysset;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Mask;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Timer1: TTimer;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Bevel1: TBevel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
TabSheet2: TTabSheet;
Bevel2: TBevel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
TrackBar1: TTrackBar;
MaskEdit1: TMaskEdit;
procedure Button1Click(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Edit1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure MaskEdit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function dynamicresolution(x,y:word):bool;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
wndhandle:THandle;
hd:HWnd;
wndclass:array[0..50] of char;
systime:TSystemTime;
newtime:string;
begin
//隐藏/显示桌面图标
wndhandle:=findwindow('progman',nil);
if checkbox1.Checked=true then
showwindow(wndhandle,sw_hide)
else
showwindow(wndhandle,sw_show);
//隐藏/显示任务栏
strpcopy(@wndclass[0],'shell_traywnd');
wndhandle:=findwindow(@wndclass[0],nil);
if checkbox2.Checked=true then
showwindow(wndhandle,sw_hide)
else
showwindow(wndhandle,sw_restore);
//隐藏/显示任务栏中的时间
hd:=findwindowex(findwindowex(findwindow('shell_traywnd',nil),0,
'traynotifywnd',nil),0,'trayclockwclass',nil);
if hd<>0 then
if (checkbox3.Checked=true) then
showwindow(hd,sw_hide)
else
showwindow(hd,sw_show);
//设置屏幕分辨率
if trackbar1.Position=0 then
dynamicresolution(640,480);
if trackbar1.Position=1 then
dynamicresolution(800,600);
if trackbar1.Position=2 then
dynamicresolution(1024,768);
//设置系统时间
newtime:=maskedit1.Text;
datetimetosystemtime(date+strtotime(newtime),systime);
setlocaltime(systime);
timer1.Enabled:=true;
end;
function dynamicresolution(x,y:word):bool;
var
lpdevmode:TDeviceMode;
begin
result:=enumdisplaysettings(nil,0,lpdevmode);
if result then
begin
lpdevmode.dmFields:=dm_pelswidth or dm_pelsheight;
lpdevmode.dmPelsWidth:=x;
lpdevmode.dmPelsHeight:=y;
//改变分辨率
result:=changedisplaysettings(lpdevmode,0)=disp_change_successful;
end;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if trackbar1.Position=0 then
label3.Caption:='640×480 像素';
if trackbar1.Position=1 then
label3.Caption:='800×600 像素';
if trackbar1.Position=2 then
label3.Caption:='1024×768 像素';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
maskedit1.Text:=timetostr(time);
end;
procedure TForm1.Edit1Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.MaskEdit1Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
hd:HWnd;
begin
hd:=findwindowex(findwindowex(findwindow('shell_traywnd',nil),0,
'traynotifywnd',nil),0,'trayclockwclass',nil);
if hd=0 then
checkbox3.Checked:=true;
end;
end.
上一篇:
PROGRESSBAR.CPP
下一篇:
不规则零件优化排样的神经网络混合优化算法