1

源程序下载
1：打开启动菜单
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Form1.handle,WM_SYSCOMMAND,SC_TASKLIST,0);
end;
2：更改系统时间
procedure TForm1.Button2Click(Sender: TObject);
var
systemtime : TSystemTime;
NewTime:string;
begin
NewTime:='13:58:00';
DateTimeToSystemTime( Date+StrToTime(NewTime),systemtime);
SetLocalTime(systemtime);
end;
3:得到windows的运行时间
用GetTickCount可以得到系统运行时间，GetTickCount得到的时间单位是milliseconds，然后用函数TurnNumToTime转换成传统的时间表示方式。
其程序如下：
Function TurnNumToTime(N : DWORD) : String;
Var
tH, tC, tS : DWord ;
RH, RC, RS : DWord ;
tempN : DWord ;
Begin
tS := 1000 ;
tC := 60*tS ;
tH := 60*tC ;
TempN := N ;
RH := TempN Div tH ;
TempN := TempN Mod tH ;
RC := TempN Div tC ;
TempN := TempN Mod tC ;
Rs := tempN Div tS ;
Result := IntToStr(Rh)+':' + IntToStr(Rc)+':' + IntToStr(Rs);
End ;
procedure TForm1.Button3Click(Sender: TObject);
begin
Label1.caption := 'Windows的运行时间是：'+TurnNumToTime(GetTickCount);
end;
源程序下载