怎样取出系统PATH(100)

怎样取出系统PATH

ExtractFilePath(Application.ExeName)

char c[1024]; GetEnvironmentVariable("PATH",c,1024);

The GetSystemDirectory function retrieves the path of the Windows system directory. The system directory contains such files as Windows libraries, drivers, and font files. UINT GetSystemDirectory( LPTSTR lpBuffer, // address of buffer for system directory UINT uSize // size of directory buffer ); ParameterslpBufferPoints to the buffer to receive the null-terminated string containing the path. This path does not end with a backslash unless the system directory is the root directory. For example, if the system directory is named WINDOWS/SYSTEM on drive C, the path of the system directory retrieved by this function is C:/WINDOWS/SYSTEM. uSizeSpecifies the maximum size of the buffer, in characters. This value should be set to at least MAX_PATH. Return ValuesIf the function succeeds, the return value is the length, in characters, of the string copied to the buffer, not including the terminating null character. If the length is greater than the size of the buffer, the return value is the size of the buffer required to hold the path. If the function fails, the return value is zero. To get extended error information, call GetLastError. RemarksApplications should not create files in the system directory. If the user is running a shared version of Windows, the application does not have write access to the system directory. Applications should create files only in the directory returned by the GetWindowsDirectory function.

http://cactusprogram.appspot.com/?p=158001

ExtractFilePath(Application.ExeName)

procedure TForm1.Button5Click(Sender: TObject);var pcChar;begin pc := GetMemory(1024); GetEnvironmentVariable('PATH',pc,1024); ShowMessage(pc); FreeMem(pc);end;