lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Lista Forumurilor Pe Tematici
|
lisp2arx | Reguli | Inregistrare | Login
POZE LISP2ARX
Nu sunteti logat.
|
Nou pe simpatie:
brunetyk_20 pe Simpatie.ro
 | Femeie
20 ani
Vrancea
cauta Barbat
21 - 47 ani |
|
|
zauchan
Moderator
Inregistrat: acum 13 ani
Postari: 180
|
|
{ This code is very useful if you need to "translate" various
environmental variables. I use this a lot to get paths to TEMP
or windows folders on different systems.}
Code:
Function php_getenv(dfn_var_isstr:shortstring;local_only :wordbool):string;
var BufSize: Integer; // buffer size required for value
begin
// Get required buffer size (inc. terminal #0)
dfn_var_isstr:=concat(dfn_var_isstr,#0,#0,#0);
BufSize := GetEnvironmentVariable(@dfn_var_isstr[1], nil, 0);
if BufSize > 0 then
begin
// Read env var value into result string
SetLength(Result, BufSize - 1);
GetEnvironmentVariable(@dfn_var_isstr[1],PChar(Result), BufSize);
end
else
// No such environment variable
Result := '';
end;//far.exe("'Path',Path php_getenv_path") |
_______________________________________
psw: cea de la wjndowsXP gigabyte..
|
|
| pus acum 4 ani |
|