如何在Delphi应用中调用C运行时库的_putenv函数？

_putenv属于微软C运行时库msvcrt.dll的导出函数，直接在Delphi中导入声明即可调用，实现非常简便。

函数声明 #

根据你使用的字符编码选择对应版本：

• ANSI版本（适用于多字节字符场景）：
  function _putenv(envstring: PAnsiChar): Integer; cdecl; external 'msvcrt.dll';
• 宽字符版本（适配Delphi默认UnicodeString，更推荐使用）：
  function _wputenv(envstring: PWideChar): Integer; cdecl; external 'msvcrt.dll';

参数说明 #

传入的字符串必须遵循变量名=值的格式，等号前后不要添加多余空格：

• 函数返回值为0表示设置成功，非0表示设置失败。
• 该函数修改的是C运行时内部维护的环境变量缓存，修改后调用CRT的getenv()可正常读取到设置值，正好解决你之前SetEnvironmentVariable()不生效的问题。

使用示例 #

// 先导入宽字符版本函数
function _wputenv(envstring: PWideChar): Integer; cdecl; external 'msvcrt.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  setResult: Integer;
begin
  // 设置名为TEST_ENV的环境变量，值为test123
  setResult := _wputenv('TEST_ENV=test123');
  if setResult = 0 then
    ShowMessage('环境变量设置成功')
  else
    ShowMessage('设置失败，错误码：' + IntToStr(setResult));
end;

注意事项 #

• 必须使用cdecl调用约定，写错会导致栈内存异常。
• 如果你依赖的第三方模块使用了特定版本的C运行时（如msvcr120.dll、ucrtbase.dll等），需要将导入的dll名称修改为对应版本的库名，避免不同CRT实例的环境变量缓存不互通。

内容的提问来源于stack exchange，提问作者zeus