如何修改环境变量？

libudi

我在Ubuntu下用Lazarus 0.9.24建立了一个测试读取并设置环境变量的程序，源代码如下：

[code]unit frmGSEnv;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;

type

  { TfrmGetSetEnv }

  TfrmGetSetEnv = class(TForm)
    bGet: TButton;
    bSet: TButton;
    eEnvName: TLabeledEdit;
    eEnvValue: TLabeledEdit;
    procedure bGetClick(Sender: TObject);
    procedure bSetClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmGetSetEnv: TfrmGetSetEnv;

implementation

{ TfrmGetSetEnv }

procedure TfrmGetSetEnv.bGetClick(Sender: TObject);
begin
  eEnvValue.Text := GetEnvironmentVariable(eEnvName.Text);
end;

procedure TfrmGetSetEnv.bSetClick(Sender: TObject);
begin
  SetEnvironmentVariable(eEnvName.Text, eEnvValue.Text);
end;

initialization
  {$I frmGSEnv.lrs}

end.［/code]

编译时提示：
frmGSEnv.pas(42,25) Error: Identifier not found "SetEnvironmentVariable"
frmGSEnv.pas(42,56) Error: Illegal expression
frmGSEnv.pas(50) Fatal: There were 2 errors compiling module, stopping

我用SetEnvironmentVariable、putenv、setenv遍查了Free Pascal和Lazarus的代码，未发现满足条件的函数定义，有没有人遇到过同样的问题？怎么解决的？

猫工

我是在rh9和centos5.2下运行lazarus，没有试过Ubuntu
不过你可以单步试一下，看call stack里是什么情况

libudi

猫工：谢了

C标准库提供了putenv和getenv两个函数，Free Pascal SysUtils单元只提供了读取环境变量的函数，没有用于修改的配对函数，当然也不是大问题，通过变通也可以处理掉

猫工

哦，原来是这样