请教，如何在程序中修改linux系统的日期和时间？

xinqing_2013

如题，通过lazarus编程如何实现在程序中修改linux系统的日期和时间？
谢谢，请大家赐教！

zouzhongming

程序参照http://www.fpccn.com/thread-2735-1-1.html:

# hwclock --set --date="08/25/2013 13:16"
# hwclock --hctosys
用超级管理员的权限就可以了。


    VProcess.CommandLine := 'sh -c "sudo hwclock --set --date="08/25/2013 13:16""';
    VProcess.Options := [poWaitOnExit, poUsePipes];
    VProcess.Execute;VProcess.CommandLine := 'sh -c "sudo hwclock --hctosys"';
    VProcess.Options := [poWaitOnExit, poUsePipes];
    VProcess.Execute;

xinqing_2013

var
  VProcess: TProcess;
begin
  if Edit1.Text<>'' then
    begin
      VProcess := TProcess.Create(nil);
      try
        VProcess.CommandLine := 'sh -c "sudo hwclock --set --date="08/25/2013 13:16:00""';
        VProcess.Options := [poWaitOnExit, poUsePipes];
        VProcess.Execute;
        VProcess.CommandLine := 'sh -c "sudo hwclock --hctosys"';
        VProcess.Options := [poWaitOnExit, poUsePipes];
        VProcess.Execute;
      finally
        VProcess.Free;
      end;
    end
  else
    begin
      Edit1.SetFocus;
      showmessage( '请输入日期时间!'+#13+'日期时间不能为空!' );
    end;



我修改了一下，程序执行后系统时间没有修改，但是如果在终端中执行上面两条命令，系统时间可以修改，请帮忙再看看究竟哪里有问题，另外我是在root用户下用lazarus编程执行的。
再次感谢。

zouzhongming

procedure TForm1.Button1Click(Sender: TObject);
var
  s : ansistring;
begin
  RunCommand('/bin/bash',['-c','sudo hwclock --set --date="08/25/2013 15:16:00"'],s);
  RunCommand('/bin/bash',['-c','sudo hwclock --hctosys'],s);
end;
你试一试这个方法！可以改变系统时间。

摄像头更改如下：
RunCommand('/bin/bash',['-c','fswebcam -d /dev/video0 -D 1 --rotate 90 /windows/tools/test.jpg'],s);

xinqing_2013

    您好：
    按照您的代码试了一下，还是不行，和版本有关系吗，请问您用的是什么版本？我用的是Red Hat Enterprise Linux Server  版本6.4(Santiago) 内核 Linux 2.6.32-358.el6.i686  GNOME 2.28.2
    谢谢！

bugxiong

你加群：146204 或 34176611 来试试

zouzhongming

我用的是Debian 6.07 (squeeze) 版本 内核 Linux 2.6.32-5-amd64  GNOME 2.30.2,lazarus 1.0.10,fpc 2.6.2.RunCommand()必须在FPC2.6.2中运行。
测试通过。
unit time;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Process;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  s : ansistring;
begin
  RunCommand('/bin/bash',['-c','sudo hwclock --set --date="08/25/2013 19:32:00"'],s);
  RunCommand('/bin/bash',['-c','sudo hwclock --hctosys'],s);
  RunCommand('/bin/bash',['-c','fswebcam -d /dev/video0 -D 1 --rotate 90 /windows/tools/test.jpg'],s);
  RunCommand('/bin/bash',['-c','sudo dmidecode'],s);
  memo1.Text:=s;
end;

end.

xinqing_2013

我再装Debian 6.07 试一下，谢谢！

terony

FPC中的Dos单元有SetSystemTime函数，你可以试试，如果Dos单元是可以跨平台的话。
PS:我没有在Linux系统上使用过，在Window7 32位 旗舰版 + Lazarus 1.0.10上测试通过。