如何获取本机操作系统的system32目录路

解决方案 »

  1.   

    试试 
    DWORD GetEnvironmentVariable(
      LPCTSTR lpName,  // address of environment variable name
      LPTSTR lpBuffer, // address of buffer for variable value
      DWORD nSize      // size of buffer, in characters
    );
     传入 system
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var sysdir : array[0..256] of char;
    begin
         windows.GetSystemDirectory(sysdir,256);
         self.Caption  := sysdir;
    end;
      

  3.   

    早就给人讲了:)
    GetSystemDirectoryhttp://lysoft.7u7.net
      

  4.   

    function GetSystemPath: String ;
    var
      iLen : Integer ;
    begin
      iLen := GetSystemDirectory(@Result[1], 0) ;
      SetLength(Result, iLen) ;
      GetSystemDirectory(@Result[1], iLen) ;
      Result[iLen] := '\' ;
    end;
    //返回system32或者system路径,带 '\'
      

  5.   

    procedure TForm1.speedbuton1Click(Sender: TObject);
    var sysdir : array[0..256] of char;
    begin
         windows.GetSystemDirectory(sysdir,256);
         self.Caption  := sysdir;
    end;
      

  6.   

    procedure TForm1.speedbuton1Click(Sender: TObject);
    var sysdir : array[0..256] of char;
    begin
         windows.GetSystemDirectory(sysdir,256);
         self.Caption  := sysdir;
    end;
      

  7.   

    上楼说得没错,windows.GetSystemDirectory(sysdir,256);