Informações do Ambiente

Informações do Ambiente Como obter informações do ambiente via Programação Delphi 1a. Parte: A função. function API_GetEnvironmentVariables : String; var pEnvStrings : pointer; i : integer; begin pEnvStrings := GetEnvironmentStrings; try i := 1; repeat while string(pEnvStrings)[i] <> #0 do begin result:=result+string(pEnvStrings)[i]; inc(i); end; result:=result+#255; inc(i) until string(pEnvStrings)[i]=#0; finally result:=result+#255; FreeEnvironmentStrings(pEnvStrings); end; end; 2a. Parte:

Continuar lendo »

Converte uma String em Real

Converte uma String em Real Function StrToReal(InStr: String): Real; var Code : Integer; Temp : Real; begin Result := 0; If Copy(InStr,1,1)=’.’ then InStr:= ‘0’ + InStr; If (Copy(InStr,1,1)=’-‘) and (Copy(InStr,2,1)=’.’) then Insert(‘0’,InStr,2); If InStr[length(InStr)] = ‘.’ then Delete(InStr,length(InStr),1); Val(InStr,Temp,Code); if Code = 0 then Result := Temp; end;

Continuar lendo »

Rotina de resgate das variáveis de ambiente DOS

Rotina de resgate das variáveis de ambiente DOS Function GetDOSEnvVar(const VarName:String):String; Var Len:Integer; pDosEnv:PChar; Begin result :=”; Len := Length(VarName); PDosEnv := GetEnvironmentStrings; If (StrLIComp(PDosEnv, @VarName[1], Len) = 0) And (PDosEnv[Len] =’ ‘) Then Begin Result := StrPas(PDosEnv + Len + 1); Break; End; Inc(PDosEnv, StrLen(PDosEnv) + 1); End;

Continuar lendo »