基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 1 元　

支付宝支付

微信支付

   源码介绍

---

Delphi读取Windows环境参数信息.

 

unit getUSERDNSDOMAIN;

interface

{uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 }
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinSock, BtnListB, NB30, StrUtils, CryptUnit,
  OleCtrls, SHDocVw, ExtCtrls, DB, DBClient,
  uRODataSnapConnection, uROClient, uROWinInetHttpChannel, Grids, DBGrids,
  ImgList, uROBinMessage
  ;


type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Panel1: TPanel;
    Button2: TButton;
    Button1: TButton;
    Edit1: TEdit;
    function ReadCupSet(setcmd: String): String;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    function PathGetSystemPath: string;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function TForm1.PathGetSystemPath: string;
var
  Buf: array[0..255] of Char;
begin
  GetWindowsDirectory(@Buf, 255);
  Result := Buf;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.text := PathGetSystemPath();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.text := ReadCupSet('USERDOMAIN');
end;

function TForm1.ReadCupSet(setcmd: String): String;
VAR
  EnvPtr, SavePtr: PChar;
  str, RE: string;
begin
  RE := 'no';
  EnvPtr := GetEnvironmentStrings;
  SavePtr := EnvPtr; //保存GetEnvironmentStrings的返回值，以后要调用FreeEnvironmentStrings来释放内存。
  repeat
    str := StrPas(EnvPtr);
    if AnsiStartsText(setcmd, STR) then
    BEGIN
      RE := rightstr(str, Length(str) - Length(setcmd) - 1);
    END;
    ListBox1.Items.Add(str);
    inc(EnvPtr, StrLen(EnvPtr)   1);
  until EnvPtr^ = #0;
  FreeEnvironmentStrings(SavePtr);
  RESULT := RE;
end;


end.