Environment variabel

GetEnv(), så vist jeg husker, du kan lige kigge i online hjælpen, jeg har ikke lige delphi startet

i min D5E findes intet om GetEnv() eller Environment variable ...
jeg har engang sådan noget, men det må så være i et andet sprog -
så jeg må finde en anden måde at løse det på.

en hurtig søgning i Online WinAPI hjælpen :

The GetEnvironmentVariable function retrieves the value of the specified variable from the environment block of the calling process. The value is in the form of a null-terminated string of characters.

DWORD GetEnvironmentVariable(

    LPCTSTR lpName,    // address of environment variable name
    LPTSTR lpBuffer,    // address of buffer for variable value
    DWORD nSize     // size of buffer, in characters
  );   


Parameters

lpName

Points to a null-terminated string that specifies the environment variable.

lpBuffer

Points to a buffer to receive the value of the specified environment variable.

nSize

Specifies the size, in characters, of the buffer pointed to by the lpBuffer parameter.



Return Values

If the function succeeds, the return value is the number of characters stored into the buffer pointed to by lpBuffer, not including the terminating null character.
If the specified environment variable name was not found in the environment block for the current process, the return value is zero.
If the buffer pointed to by lpBuffer is not large enough, the return value is the buffer size, in characters, required to hold the value string and its terminating null character.

See Also

GetEnvironmentStrings, SetEnvironmentVariable

tak !
jeg er ikke bekendt med WinAPI onlinehjælpen ...

Den kan jeg varmt anbefale, i det heletage er der god hjælp med til Delphi

Function GetEnvVar(const csVarName : String ) : String;
const
  cnMaxVarValueSize = 250;
var
  pc1, pc2  : PChar;
begin
  pc1 := StrAlloc( Length( csVarName )+1 );
  pc2 := StrAlloc( cnMaxVarValueSize + 1 );
  StrPCopy( pc1, csVarName );
  GetEnvironmentVariableA( pc1, pc2, cnMaxVarValueSize );
  Result := StrPas( pc2 );
  StrDispose( pc1 );
  StrDispose( pc2 );
end;


Jens B

LUKKER DU ELLER HVAD ?

Jens B