Диалоговое окно системных часов

[Прик]

Подскажите, пожалуйста, какой файл надо запустить, чтобы появилось окно с системными часами.

[Человек_Борща]

Вкоммандной строке пропиши

control date/time

[Прик]

Спасибо за командную строку. А из Delphi?

  ShellExecute(0, 'open', 'control date/tme', nil, nil, SW_SHOW); //не появляется
  ShellExecute(0, 'open', 'control', 'date/tme', nil, SW_SHOW);  //тоже не-а

Видно, не все так просто...

[lux16]

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec('control date/time', 0);
end;

Зачем усложнять себе жизнь ?

[phomm]

ShellExecute(0, 'open', 'control', 'timedate.cpl', '', SW_SHOW);

проверено, правда, для вин6+ не гарантирую

[Человек_Борща]

lux16, WinExec сделана для совместимости со старыми версиями системы.
Лучше уж ShellExecute или CreateProcess.

[Прик]

Да, WinExec не применяю уже давно, даже забыл о ее существовании.
CreateProcess требует городьбы. А вот вариантик phomm'а подошел вполне.

-------
P.S. а что такое "вин6+"? Семерка?

[Аватар]

Вариант с date/time тоже вполне идет

ShellExecute(0,'open','control','date/time',nil,SW_SHOW);

[Прик]

Ага, точно, Аватар.
Хохма: мне б научиться писать правильно и было бы счастье. Пишу так: 'date/tme' и чего-то хочу получить