如何取得系統環境變數

有關Delphi 的語法, 程式, 等
回覆文章
頭像
tim
文章: 1380
註冊時間: 2008年 11月 26日, 00:49

如何取得系統環境變數

文章 tim »

利用 GetEnvironmentStrings 即可, 回傳的是一組 PChar 字串組
xxxxx#0xxxxxx#0xxxxxxx#0

代碼: 選擇全部

    var 
      Env1, Env2: PChar; 
    begin 
      Env1 := GetEnvironmentStrings; 
      Env2 := Env1; 
      if Env2 <> nil then 
        repeat 
          Memo1.Lines.Add(StrPas(Env2)); 
          inc(Env2, StrLen(Env2) + 1); 
        until Env2^ = #0; 
      FreeEnvironmentStrings(Env1); 
      Env2 := nil; 
    end; 
多多留言, 整理文章, 把經驗累積下來.....
回覆文章