K kaida Unregistered / Unconfirmed GUEST, unregistred user! 2007-06-19 #2 uses shellapi; procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(0, 'open', 'control', 'date/time', nil, SW_SHOW); end;
uses shellapi; procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(0, 'open', 'control', 'date/time', nil, SW_SHOW); end;
云 云虎 Unregistered / Unconfirmed GUEST, unregistred user! 2007-06-19 #3 用ShellExecute函数调用系统目录(如XP,为c:/windows/system32)下的TimeDate.cpl