Explorar o código

+ Initial implamentation from Michael Hess

michael %!s(int64=26) %!d(string=hai) anos
pai
achega
9df8c9f28d
Modificáronse 1 ficheiros con 9 adicións e 0 borrados
  1. 9 0
      fcl/go32v2/ezcgi.inc

+ 9 - 0
fcl/go32v2/ezcgi.inc

@@ -0,0 +1,9 @@
+Uses Dos;
+
+{ Declared EXPLICITLY with Ansistring, so NO mistaking is possible }
+
+Function Getenv (Var EnvVar  : AnsiString): AnsiString;
+
+begin
+  Result:=Dos.Getenv(EnvVar); 
+end;