00501.txt

Delphi编程五大妙招源程序

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;