root/trunk/Units/unit_Globals.pas

450463
156
156
157
procedure SetProxySettings(var IdHTTP: TidHTTP);
157
procedure SetProxySettings(var IdHTTP: TidHTTP);
158
158
159
function c_GetTempPath: string;
159
//function c_GetTempPath: string;
160
function GetSpecialPath(CSIDL: word): string;
160
function GetSpecialPath(CSIDL: word): string;
161
function GetLibUpdateVersion(Full: Boolean): Integer;
161
function GetLibUpdateVersion(Full: Boolean): Integer;
162
function ExecAndWait(const FileName, Params: string; const WinState: word): Boolean;
162
function ExecAndWait(const FileName, Params: string; const WinState: word): Boolean;
...
...
808
{$ENDIF}
808
{$ENDIF}
809
end;
809
end;
810
810
811
{
811
function c_GetTempPath: string;
812
function c_GetTempPath: string;
812
var
813
var
813
  Buffer: array [0 .. 65536] of Char;
814
  Buffer: array [0 .. 65536] of Char;
814
begin
815
begin
815
  SetString(Result, Buffer, GetTempPath(Sizeof(Buffer) - 1, Buffer));
816
  SetString(Result, Buffer, GetTempPath(Sizeof(Buffer) - 1, Buffer));
816
end;
817
end;
818
}
817
819
818
function GetSpecialPath(CSIDL: word): string;
820
function GetSpecialPath(CSIDL: word): string;
819
var
821
var