کدنویسی دلفی برای نوشتن متن دربرگه Environment Variables

[khanboloky]

می خواهم بااستفاده ازکدنویسی دلفی درآدرس
my computer<Properties>Advanced>Environment Varibles>
درجدول System Variables
درستونهای Variable و Value کلمات رابنویسم

[Felony]

http://www.delphidabbler.com/articles?article=6

[khanboloky]

با تشکرازلینک شما
ازآن استفاده کردم ودریک فرم کدنویسی راقراردادم ولی نتونستم راه اندازی کنم خواهش می کنم ایراد کدنویسی زیر رابرطرف کنید
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function SetEnvVarValue(const VarName,
VarValue: string): Integer;
begin
// Simply call API function
if SetEnvironmentVariable(PChar(VarName),
PChar(VarValue)) then
Result := 0
else
Result := GetLastError;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetEnvironmentVariable(PChar(edit1.Text),
PChar(edit2.Text));
end;