Как открыть диалог смены системного времени

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: http://www.swissdelphicenter.ch

uses

Shellapi;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(Handle, ‘open’, ‘control’, ‘date/time’, nil, SW_SHOW);

end;

{/codecitation}

Добавить комментарий