root/trunk/ExtraFunctions.pas

///////////////////////////////////////////////////////////
//                    ExtraFunctions                     //
//    Ìîäóëü ñ ñàìîïàëüíûìè ôóíêöèÿìè è ïðî÷èì îáùåãî    //
//                       íàçíà÷åíèÿ.                     //
//             Copyright (C) 2007 Gipat Group            //
//              Ðàñïðîñòðàíÿåòñÿ íà óñëîâèÿõ             //
//                      LGPL v2.1                        //
//                                                       //
//                   www.gipatgroup.org                  //
///////////////////////////////////////////////////////////

//Ê ðàáîòå íàä äàííûì ôàéëîì ïðèëîæèëè ðóêè, íîãè.... êîðî÷å àôôòàðû:
// 1) Sagrer (sagrer@yandex.ru)

////////////////////////////////////////////////////////////////////////

unit ExtraFunctions;

{$IFDEF FPC}  
  {$mode objfpc}
{$ENDIF FPC}

{$H+}

interface

uses
  Classes, SysUtils, Windows, Registry
  {$IFDEF FPC}, crc{$ELSE}, crc_32{$ENDIF FPC}
  {$IFNDEF LCL}, Messages, StrUtils {$ENDIF LCL};

const
  DoDebugOutput = true;            //Âûâîäèòü ëè äåáàæíûå ìåññàãè.

  //Òèïî èäåíòèôèêàòîðû...
  
  //EnvPathAdd
  EnvPathAdd_User = 0;
  EnvPathAdd_Global = 1;

Function StrRPos(str1,str2 : pchar) : pchar;  //Íà îñíîâå ôóíêöèè èç FPC. Èùåò ïåðâîå âõîæäåíèå str2 â str1, íî ñ êîíöà ñòðîêè.
Function Parse( var S : AnsiString; const Separators : AnsiString ) : AnsiString;   //Ôóíêöèÿ äëÿ ïàðñèíãà ñòðîê, ñäåëàíî íà îñíîâå ôóíêöèè èç KOL.
Function ParseTail( var S : AnsiString; const Separators : AnsiString ) : AnsiString;   //Àíîëîãè÷íî òîìó ÷òî âûøå, íî ðàáîòàåò ñ õâîñòà.
Function ParseNumericHead(var S : AnsiString) : AnsiString;    //Ïàðñèò ñ÷èòàÿ çà ðàçäåëèòåëü ïåðâûé ïîïàâøèéñÿ ñèìâîë íå-öèôðó.
Function IsNumericStr (Str : string) : boolean;      //À ýòà ôóíêà äîëæíà îïðåäåëÿòü, ñîñòîèò ëè ñòðîêà òîëüêî èç öèôð.
Function IsVersionStr (Str : string) : boolean;      //ßâëÿåòñÿ ëè ñòðîêà íîìåðîì âåðñèè.
Function IsNewVersion(OldVer, NewVer : string) : boolean;     //Ôóíêà äîëæíà ïðîâåðÿòü, íîâåå ëè âåðñèÿ.
Procedure ParsePathString(const PathString : string; var PathStringList : TStringList);  //Ïàðñèò ñòðîêó ñ ïóòÿìè è çàãîíÿåò èíôó â TStringList.
Function CombinePathString(const PathStringList : TStringList) : string;  //Ãåíåðèò èç TStringList ñòðîêó òèïà Path.
Function EnvPathExists(const PathStr : string; const CheckUser, CheckGlobal : boolean) : boolean;   //Ïðîâåðÿåò, ñóùåñòâóåò ëè òàêîé path â óêàçàííûõ ïåðåìåííûõ.
Function EnvPathRemove(const PathStr : string; const CheckUser, CheckGlobal : boolean) : boolean;   //Óäàëÿåò ñòðîêó ïóòè èç óêàçàííûõ PATH. Ðåçóëüòàò - true åñëè ÷åãî-òî áûëî óäàëåíî.
Function EnvPathAdd(const PathStr : string; const Target : integer; const ForceRemoveDoubles : boolean = true; const ForceCreateLocal : boolean = false) : boolean;     //Äîáàâëÿåò ïóòü â óêàçàííûå PATH.
Function TrimExLeft(const InputStr, TrimChars : string) : string;   //Òðèìàåò ñèìâîëû ñëåâà.
Function TrimExRight(const InputStr, TrimChars : string) : string;   //Òðèìàåò ñèìâîëû ñïðàâà.
Function TrimEx(const InputStr, TrimChars : string) : string;   //Òðèìàåò ñèìâîëû ñî âñåõ ñòîðîí.
Function FileToCRC32(const FileName : string; const ConsoleOutput : boolean = false) : cardinal;   //Âû÷èñëèòü CRC32 äëÿ ôàéëà, åñëè íàäî ñ èíäèêàöèåé ïðîöåññà â êîíñîëü.
Function CheckCharNum(const Ch : char) : boolean;    //Ïðîâåðèòü - ÿâëÿåòñÿ ëè ñèìâîë öèôðîé
Function CheckStrInt(const St : string) : boolean;    //Ïðîâåðèòü - ÿâëÿåòñÿ ëè ñòðîêà ïðåäñòàâëåíèåì öåëî÷èñëåííîãî çíà÷åíèÿ
Function CheckStrFloat(const St : string) : boolean;   //Ïðîâåðèòü - ÿâëÿåòñÿ ëè ñòðîêà ïðåäñòàâëåíèåì äðîáíîãî çíà÷åíèÿ
Function IntToBool(const InputInt : Integer) : boolean;   //Ïðåâðàòèòü Integer â Boolean
Function StrToBool(const InputStr : AnsiString) : boolean;  //Ïðåâðàòèòü String â Boolean
Function BoolToInt(const InputBool : boolean) : Integer;  //Ïðåâðàòèòü Boolean â Integer
Function BoolToStr(const InputBool : boolean) : AnsiString;   //Ïðåâðàòèòü Boolean â String
Function ReadFirstLineFromStr(const InputStr : AnsiString) : AnsiString;  //Ýëåìåíòàðíî ñêîïèðîâàòü ñòðîêó îò íà÷àëà äî áàéòà #13 èëè #10 åñëè #13 íå îáíàðóæèòñÿ.

implementation

uses
  ExtraFileUtils;

Function StrRPos(str1,str2 : pchar) : pchar;
//Íà îñíîâå ôóíêöèè èç FPC.
//Èùåò ïåðâîå âõîæäåíèå str2 â str1, íî ñ êîíöà ñòðîêè.
var
   p : pchar;
   lstr2 : LongInt;
begin
   StrRPos:=nil;
   if (str1 = nil) or (str2 = nil) then
     exit;
   p:=strrscan(str1,str2^);
   if p=nil then
     exit;
   lstr2:=strlen(str2);
   while p<>nil do
     begin
        if strlcomp(p,str2,lstr2)=0 then
          begin
             StrRPos:=p;
             exit;
          end;
        dec(p);
        p:=strrscan(p,str2^);
     end;
end;

Function Parse( var S : AnsiString; const Separators : AnsiString ) : AnsiString;
//Ôóíêöèÿ äëÿ ïàðñèíãà ñòðîê, ñäåëàíî íà îñíîâå ôóíêöèè èç KOL.
var Pos : Integer;

begin
  Pos := Longint( StrPos( PChar(S), PChar(Separators) ) - LongInt(S) + 1 ) ;
  if Pos <= 0 then
     Pos := Length( S ) + Length(Separators);
  Result := S;
  S := Copy( Result, Pos + Length(Separators), MaxInt );
  Result := Copy( Result, 1, Pos - 1 );
end;

Function ParseTail( var S : AnsiString; const Separators : AnsiString ) : AnsiString;
//Àíîëîãè÷íî òîìó ÷òî âûøå, íî ðàáîòàåò ñ õâîñòà.
var Pos : Integer;

begin
  Pos := Longint( StrRPos( PChar(S), PChar(Separators) ) - LongInt(S) + 1 ) ;
  Result := S;
  S := Copy(Result, 1, Pos-1);
  Result := Copy(Result, Pos+Length(Separators), Length(Result)-(Pos+Length(Separators))+1);
end;

Function ParseNumericHead(var S : AnsiString) : AnsiString;
//Ïàðñèò ñ÷èòàÿ çà ðàçäåëèòåëü ïåðâûé ïîïàâøèéñÿ ñèìâîë íå-öèôðó.
var
  Pos : Integer;
  Finded : Boolean;

begin
  //Èíèöèàëèçàöèÿ.
  Pos := 0;
  Finded := false;
  
  //Èùåì ïåðâóþ "íå-öèôðó"
  repeat
    Pos := Pos+1;
    if Pos <= Length(S) then begin
      if IsNumericStr(S[Pos]) = false then begin
        //Íàøëè.
        Finded := true;
        Pos := Pos-1;
      end;
    end;
  until (Pos = Length(S)) or (Finded = true);
  
  //Íó è, ñîáñíî ïàðñåíã.
  Result := Copy(S,1,Pos);
  Delete(S,1,Pos);
end;

Function IsNumericStr (Str : string) : boolean;
var
  I, StrLength : integer;
  FindedChar : boolean;
begin
  //À ýòà ôóíêà äîëæíà îïðåäåëÿòü, ñîñòîèò ëè ñòðîêà òîëüêî èç öèôð.

  Result := true;  //Óìîë÷àëüíûé ðåçóëüòàò.

  StrLength := Length(Str);
  If StrLength > 0 then begin
    //Åñëè â ñòðîêå ÷åòà åñòü òî ìîæíî ïðèñòóïàòü.
    For I := 1 to StrLength do begin
      FindedChar := true;
      If Str[I] = '1' then FindedChar := false;  //Äîñòàòî÷íî âûïîëíèòñÿ 1 ïðîâåðêå - è ÷àð áóäåò íå íàéäåí :)
      If Str[I] = '2' then FindedChar := false;
      If Str[I] = '3' then FindedChar := false;
      If Str[I] = '4' then FindedChar := false;
      If Str[I] = '5' then FindedChar := false;
      If Str[I] = '6' then FindedChar := false;
      If Str[I] = '7' then FindedChar := false;
      If Str[I] = '8' then FindedChar := false;
      If Str[I] = '9' then FindedChar := false;
      If Str[I] = '0' then FindedChar := false;

      //È åñëè áûë îáíàðóæåí ñèìâîë-íå öèôðà - îáëîìèòü âñå íàôèã.
      If FindedChar = true then Result := false;
    end;
  end
  else begin
    Result := false;  //Òèïà ñòðîêà ïóñòàÿ.
  end;
end;

Function IsVersionStr (Str : string) : boolean;
var
  I, StrLength : integer;
  FindedChar, WasPoint : boolean;
begin
  //ßâëÿåòñÿ ëè ñòðîêà íîìåðîì âåðñèè.

  Result := true;  //Óìîë÷àëüíûé ðåçóëüòàò.

  StrLength := Length(Str);
  If StrLength > 0 then begin
    //Åñëè â ñòðîêå ÷åòà åñòü òî ìîæíî ïðèñòóïàòü.
    WasPoint := false;
    For I := 1 to StrLength do begin
      FindedChar := true;
      If Str[I] = '1' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '2' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '3' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '4' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '5' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '6' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '7' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '8' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '9' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '0' then begin
        FindedChar := false;
        WasPoint := false;
      end;
      If Str[I] = '.' then begin
        FindedChar := false;
        If WasPoint = true then begin
          //Åñëè äî ýòîãî óæå áûëà òî÷êà - òî àáëîîîì.
          FindedChar := true;
        end;
        WasPoint := true;
      end;

      //È åñëè áûë îáíàðóæåí ñèìâîë-íå öèôðà è íå òî÷êà - îáëîìèòü âñå íàôèã.
      If FindedChar = true then Result := false;
    end;
  end
  else begin
    Result := false;  //Òèïà ñòðîêà ïóñòàÿ.
  end;
end;

Function IsNewVersion(OldVer, NewVer : string) : boolean;
var
  CurrVerLevels, I,
  OldVerLevels, MaxLevel : integer;
  TempStr, TempStr2,
  OldVerTemp, NewVerTemp : string;
begin
  //Ôóíêà äîëæíà ïðîâåðÿòü, íîâåå ëè âåðñèÿ.

  Result := false;  //Òèïà óìîë÷àëüíîå çíà÷åíèå.
  OldVerTemp := OldVer;
  NewVerTemp := NewVer;


  If (IsVersionStr(OldVer) = true) and (IsVersionStr(NewVer) = true) then begin
    //Òîëüêî åñëè â îáîèõ ñòðîêàõ - âåðñèè.

    //Äëÿ íà÷àëà - ïîñìîòðåòü ñêîëüêî óðîâíåé âåðñèè â ñòàðîé âåðñèè.
    TempStr := NewVerTemp;
    TempStr2 := '';      //Ïåðåìåííàÿ èíèöèàëèçèðóåòñÿ ÷èñòî ÷òîá íå âûëàçèë õèíò ïðè Parse îò êîìïèëåðà.
    CurrVerLevels := 1;  //Åñòü êàê ìèíèìóì 1 óðîâåíü.
    repeat
      If Pos('.',TempStr) <> 0 then begin
        CurrVerLevels := CurrVerLevels + 1;   //Åñòü ìèíèìóì åùå 1 óðîâåíü.
        TempStr2 := Parse(TempStr,'.');
      end;
    until Pos('.',TempStr) = 0;

    //È â íîâîé.
    TempStr := OldVerTemp;
    OldVerLevels := 1;  //Åñòü êàê ìèíèìóì 1 óðîâåíü.
    repeat
      If Pos('.',TempStr) <> 0 then begin
        OldVerLevels := OldVerLevels + 1;   //Åñòü ìèíèìóì åùå 1 óðîâåíü.
        TempStr2 := Parse(TempStr,'.');
      end;
    until Pos('.',TempStr) = 0;

    //Òåïåðü âû÷èñëèòü ìàêñèìàëüíûé óðîâåíü.
    If CurrVerLevels > OldVerLevels then begin
      MaxLevel := CurrVerLevels;
    end
    else begin
      MaxLevel := OldVerLevels;
    end;

    //Òåïåðü - ê òîé âåðñèè ÷òî ñàìàÿ ìàëîóðîâíåâàÿ - äîáàâèòü íóëåé.
    If CurrVerLevels < MaxLevel then begin
      For I := 1 to MaxLevel - CurrVerLevels do begin
        NewVerTemp := NewVerTemp+'.0';
      end;
    end;
    If OldVerLevels < MaxLevel then begin
      For I := 1 to MaxLevel - OldVerLevels do begin
        OldVerTemp := OldVerTemp+'.0';
      end;
    end;

    //Íó à òåïåðü - ñîáñíî ñðàâíåíèå íàêîíåöòî.
    I := 0;
    repeat
      I := I+1;
      TempStr := Parse(OldVerTemp,'.');
      TempStr2 := Parse(NewVerTemp,'.');
      If StrToInt(TempStr2) > StrToInt(TempStr) then Result := true;
    until (I = MaxLevel) or (Result = true);
  end;
end;



Procedure ParsePathString(const PathString : string; var PathStringList : TStringList);
//Ïàðñèò ñòðîêó ñ ïóòÿìè è çàãîíÿåò èíôó â TStringList.
begin

  //×èñòèì ñïèñîê.
  PathStringList.Clear;
  
  //Ïàðñèì...
  ExtractStrings([';'], [' '], PChar(PathString), PathStringList);
end;

Function CombinePathString(const PathStringList : TStringList) : string;
//Ãåíåðèò èç TStringList ñòðîêó òèïà Path.
var
  I : integer;
begin

  Result := '';
  
  if PathStringList.Count > 0 then begin
    for I := 0 to PathStringList.Count-1 do begin
      //Äîáàâèòü ñòðîêó...
      Result := Result+PathStringList.Strings[I];
      //È åñëè íàäî - ðàçäåëèòåëü.
      if I < PathStringList.Count-1 then begin
        Result := Result+';';
      end;
    end;
  end;
  
end;

Function EnvPathExists(const PathStr : string; const CheckUser, CheckGlobal : boolean) : boolean;
//Ïðîâåðÿåò, ñóùåñòâóåò ëè òàêîé path â óêàçàííûõ ïåðåìåííûõ.
var
  Registr : TRegistry;
  PathVar : string;
  PathVarList : TStringList;
  I : Integer;

  Function SearcherCode : boolean;
  begin
    Result := false;

    //Ïîëó÷àåì ïóòü...
    PathVar := Registr.ReadString('PATH');
    //Ïàðñèì ñòðî÷êó...
    ParsePathString(PathVar,PathVarList);
    if PathVarList.Count > 0 then begin
      //Èùåì òàì âñå íàøè ïóòè. Òîëüêî åñëè åñòü ãäå èñêàòü åññíî.
      I := -1;
      repeat
        I := I+1;
        if UpperCase(DelLastSlash(PathVarList.Strings[I])) = UpperCase(DelLastSlash(PathStr)) then begin
          Result := true;   //×åòà íàøëè % ).
        end;
      until (I >= PathVarList.Count-1) or (Result = true);
    end;
  end;

begin

  //Èíèöèàëèçàöèÿ..
  Registr := TRegistry.Create;
  PathVarList := TStringList.Create;
  Result := false;

  //×èñòèì
  //Þçâåðÿ...
  If CheckUser = true then begin
    Registr.RootKey := HKEY_CURRENT_USER;
    Registr.OpenKey('\Environment',false);
    Result := SearcherCode();
  end;

  //Ãëîáàëüíî...
  If CheckGlobal = true then begin
    Registr.RootKey := HKEY_LOCAL_MACHINE;
    Registr.OpenKey('\SYSTEM\CurrentControlSet\Control\Session Manager\Environment',false);
    Result := Result or SearcherCode();
  end;

  //×èñòèì ìóñîð...
  Registr.Free;
  PathVarList.Free;

end;

Function EnvPathRemove(const PathStr : string; const CheckUser, CheckGlobal : boolean) : boolean;
//Óäàëÿåò ñòðîêó ïóòè èç óêàçàííûõ PATH. Ðåçóëüòàò - true åñëè ÷åãî-òî áûëî óäàëåíî.
var
  Registr : TRegistry;
  PathVar : string;
  PathVarList : TStringList;
  I : Integer;
  Finded : boolean;
  
  Function RemoverCode : boolean;
  begin
    Result := false;

    //Ïîëó÷àåì ïóòü...
    PathVar := Registr.ReadString('PATH');
    //Ïàðñèì ñòðî÷êó...
    ParsePathString(PathVar,PathVarList);
    if PathVarList.Count > 0 then begin
      //Èùåì òàì âñå íàøè ïóòè è óäàëÿåì. Òîëüêî åñëè åñòü ãäå èñêàòü åññíî.
      I := -1;
      Finded := false;    //Íàøëè ëè ìû òàì íóæíûé ïóòü...
      repeat
        I := I+1;
        if UpperCase(DelLastSlash(PathVarList.Strings[I])) = UpperCase(DelLastSlash(PathStr)) then begin
          PathVarList.Delete(I);
          I := I-1;
          Finded := true;   //×åòà íàøëè % ).
        end;
      until I >= PathVarList.Count-1;

      //Âåðíåì ñòðî÷êó îáðàòíî â ïåðåìåííóþ...
      //Åññíî ýòî ñðàáîòàåò òîëüêî åñëè â ïåðåìåííîé õîòü ÷òî-òî áûëî è òåì áîëåå åñëè
      //òàì óäàëîñü íàéòè èñêîìîå...
      if Finded = true then begin
        //Ãåíåðèì ñòðî÷êó...
        PathVar := CombinePathString(PathVarList);
        if DoDebugOutput = true then begin
          //Writeln('New path will be: '+PathVar);
        end;
        //È ñîáñíî çàïèñûâàåì íîâîå çíà÷åíèå...
        Registr.WriteString('PATH',PathVar);           //Âðåìåííî çàêîììåí÷åíî - íà âðåìÿ îòëàäêè.
        //Ðåçóëüòàò.
        Result := true;
      end;

    end;
  end;
  
begin

  //Èíèöèàëèçàöèÿ..
  Registr := TRegistry.Create;
  PathVarList := TStringList.Create;
  Result := false;
  
  //×èñòèì
  //Þçâåðÿ...
  If CheckUser = true then begin
    Registr.RootKey := HKEY_CURRENT_USER;
    Registr.OpenKey('\Environment',false);
    Result := RemoverCode();
    Registr.CloseKey;
  end;
  
  //Ãëîáàëüíî...
  If CheckGlobal = true then begin
    Registr.RootKey := HKEY_LOCAL_MACHINE;
    Registr.OpenKey('\SYSTEM\CurrentControlSet\Control\Session Manager\Environment',false);
    Result := Result or RemoverCode();
    Registr.CloseKey;
  end;
  
  //Ñîîáùàåì äðóãèì ïðîãàì ÷òî ùåé-òî ïîìåíÿëîñü...
  if Result = true then begin
    SendMessage( HWND_BROADCAST, WM_SETTINGCHANGE, 0, LPARAM(LPCSTR('Environment')) );
  end;
  
  //×èñòèì ìóñîð...
  Registr.Free;
  PathVarList.Free;

end;

Function EnvPathAdd(const PathStr : string; const Target : integer; const ForceRemoveDoubles : boolean = true; const ForceCreateLocal : boolean = false) : boolean;
//Äîáàâëÿåò ïóòü â óêàçàííûå PATH.
var
  Registr : TRegistry;
  UserPathVar, GlobalPathVar : string;
  UserPathVarList, GlobalPathVarList : TStringList;
  Finded : boolean;
  
begin
  //Èíèöèàëèçàöèÿ..
  Registr := TRegistry.Create;
  Result := false;
  
  //Èòàê, â çàâèñèìîñòè îò òîãî êóäà ñîáèðàåìñÿ äîáàâëÿòü...
  if Target = EnvPathAdd_Global then begin
    //Â ãëîáàëêó äîáàâëÿåì
    
    //Èùåì åñòü ëè ýòîò ïóòü â ëîêàëêå. Åñëè åñòü - óäàëÿåì.
    EnvPathRemove(PathStr, true, false);
    
    //Òåïåðü ïðîâåðèì - åñòü ëè â ãëîáàëêå òàêîé ïóòü óæå...
    Finded := EnvPathExists(PathStr, false, true);
    
    //Åñëè íèôèãà íå íàøëè - äîáàâëÿåì ïåðåìåííóþ. Åñëè íàøëè - íè÷å òðîãàòü íå íàäî %).
    if Finded = false then begin
      Registr.RootKey := HKEY_LOCAL_MACHINE;
      Registr.OpenKey('\SYSTEM\CurrentControlSet\Control\Session Manager\Environment',true);
      //Ïîëó÷àåì ïóòü...
      GlobalPathVar := Registr.ReadString('PATH');
      //Ïàðñèì ñòðî÷êó...
      GlobalPathVarList := TStringList.Create;
      ParsePathString(GlobalPathVar,GlobalPathVarList);
      //Äîáàâëÿåì çíà÷åíèå...
      GlobalPathVarList.Add(PathStr);
      GlobalPathVar := CombinePathString(GlobalPathVarList);
      //Ïèøåì âñå îáðàòíî.
      if DoDebugOutput = true then begin
        //Writeln('New global path will be: '+GlobalPathVar);
      end;
      //È ñîáñíî çàïèñûâàåì íîâîå çíà÷åíèå...
      Registr.WriteString('PATH',GlobalPathVar);           //Âðåìåííî çàêîììåí÷åíî - íà âðåìÿ îòëàäêè.
      Registr.CloseKey;
      //Ñîîáùàåì äðóãèì ïðîãàì ÷òî ùåé-òî ïîìåíÿëîñü...
      SendMessage( HWND_BROADCAST, WM_SETTINGCHANGE, 0, LPARAM(LPCSTR('Environment')) );
      //×èñòèì ìóñîð...
      GlobalPathVarList.Free;
    end;
  end
  else if Target = EnvPathAdd_User then begin
    //Â ëîêàëêó äîáàâëÿåì

    //Ïðîâåðÿåì, åñòü ëè â ãëîáàëêå òàêîé ïóòü (åñëè íå ôîðñèì äîáàâëåíèå â ëîêàëêó),
    //ëèáî åñëè ñêàçàíî óäàëÿòü â ãëîáàëêå - óäàëÿåì.
    Finded := false;
    if ForceRemoveDoubles = true then begin
      //Óäàëÿåì ãëîáàëêó
      EnvPathRemove(PathStr, false, true);
    end
    else if ForceCreateLocal = false then begin
      //Ïðîâåðÿåì åñòü ëè ÷òî-òî â ãëîáàëêå - åñëè åñòü òî â ëîêàëêó äîáàâëÿòüñÿ íå áóäåò.
      Finded := EnvPathExists(PathStr, false, true);
    end;
    
    //Åñëè ïîêà åñòü ïðè÷èíû ïðîäîëæàòü - ïðîâåðÿåì, åñòü ëè â ëîêàëêå òàêîé ïóòü...
    if Finded = false then begin
      Finded := EnvPathExists(PathStr, true, false);
    end;
    
    //È òåïåðü, åñëè òàêè íóæíî äîáàâèòü íîâîå çíà÷åíèå â ïåðåìåííóþ - äîáàâëÿåì.
    Registr.RootKey := HKEY_CURRENT_USER;
    Registr.OpenKey('\Environment',true);
    //Ïîëó÷àåì ïóòü...
    UserPathVar := Registr.ReadString('PATH');
    //Ïàðñèì ñòðî÷êó...
    UserPathVarList := TStringList.Create;
    ParsePathString(UserPathVar,UserPathVarList);
    //Äîáàâëÿåì çíà÷åíèå...
    UserPathVarList.Add(PathStr);
    UserPathVar := CombinePathString(UserPathVarList);
    //Ïèøåì âñå îáðàòíî.
    if DoDebugOutput = true then begin
      //Writeln('New user path will be: '+UserPathVar);
    end;
    //È ñîáñíî çàïèñûâàåì íîâîå çíà÷åíèå...
    Registr.WriteString('PATH',UserPathVar);           //Âðåìåííî çàêîììåí÷åíî - íà âðåìÿ îòëàäêè.
    Registr.CloseKey;
    //Ñîîáùàåì äðóãèì ïðîãàì ÷òî ùåé-òî ïîìåíÿëîñü...
    SendMessage( HWND_BROADCAST, WM_SETTINGCHANGE, 0, LPARAM(LPCSTR('Environment')) );
    //×èñòèì ìóñîð...
    UserPathVarList.Free;
  end;

  //×èñòèì ìóñîð...
  Registr.Free;
end;

Function TrimExLeft(const InputStr, TrimChars : string) : string;
//Òðèìàåò ñèìâîëû ñëåâà.
var
  FindedTrimChar, FindedNoTrimChar : boolean;
  I, J : Integer;
  
begin

  //Óìîë÷àëüíîå âîçâðàùàåìîå çíà÷åíèå.
  Result := '';
  
  //Åñòü ëè âî âõîäíîé ñòðîêå õîòü ÷òî-òî....
  if Length(InputStr) > 0 then begin
    //Åñòü. Çíà÷èò ñ÷èòàåì êîëè÷åñòâî ñèìâîëîâ ñ íà÷àëà ñòðîêè ñîâïàäàþùèå ñ TrimChars...
    I := 0;
    FindedNoTrimChar := false;
    repeat
      //Öèêë ñîáñòâåííî ïîäñ÷åòà êîëè÷åñòâà òðèìàåìûõ ñèìâîëîâ.
      //Ùåëêàåì ñ÷åò÷èêîì è îáíóëÿåì èíäèêàòîð ïðîâåðêè ñèìâîëà.
      I := I+1;
      FindedTrimChar := false;
      
      //Ïðîâåðÿåì ñèìâîë
      for J := 1 to Length(TrimChars) do begin
        //Öèêë ïðîâåðêè ÿâëÿåòñÿ ëè ñèìâîë òðèìàåìûì %).
        if InputStr[I] = TrimChars[J] then begin
          FindedTrimChar := true;     //Íàøëè òàêîé ñèìâîë.
        end;
      end;
      
      //Ñìîòðèì ðåçóëüòàò ïðîâåðêè.
      if FindedTrimChar = false then begin
        //Òàêè ñèìâîë îêàçàëñÿ íå òðèìàåìûì - ïîäñ÷åò çàâåðøåí, îòìå÷àåì ÷òî ïåðâûé íå-òðèì ñèìâîë íàéäåí.
        FindedNoTrimChar := true;
      end;
      
    until (I = Length(InputStr)) or (FindedNoTrimChar = true);
    
    //Òåïåðü â çàâèñèìîñòè îò òîãî ÷òî íàøëè...
    If FindedNoTrimChar = true then begin
      //Åñëè â ñòðîêå åñòü ÷òî-òî ïîìèìî òðèìàåìûõ ñèìâîëîâ - áóäåì òðèìû óäàëÿòü.
      //Åñëè áû òàì áûëè òîëüêî îíè - ìîæíî áûëî áû âîîáùå íè÷åãî íå äåëàòü - âåðíåòñÿ ïóñòàÿ ñòðîêà.
      Result := RightStr(InputStr,Length(InputStr)-I+1);
    end;
  end;
  
end;

Function TrimExRight(const InputStr, TrimChars : string) : string;
//Òðèìàåò ñèìâîëû ñïðàâà.
var
  FindedTrimChar, FindedNoTrimChar : boolean;
  I, J : Integer;

begin

  //Óìîë÷àëüíîå âîçâðàùàåìîå çíà÷åíèå.
  Result := '';

  //Åñòü ëè âî âõîäíîé ñòðîêå õîòü ÷òî-òî....
  if Length(InputStr) > 0 then begin
    //Åñòü. Çíà÷èò ñ÷èòàåì êîëè÷åñòâî ñèìâîëîâ ñ êîíöà ñòðîêè ñîâïàäàþùèå ñ TrimChars...
    I := Length(InputStr)+1;
    FindedNoTrimChar := false;
    repeat
      //Öèêë ñîáñòâåííî ïîäñ÷åòà êîëè÷åñòâà òðèìàåìûõ ñèìâîëîâ.
      //Ùåëêàåì ñ÷åò÷èêîì è îáíóëÿåì èíäèêàòîð ïðîâåðêè ñèìâîëà.
      I := I-1;
      FindedTrimChar := false;

      //Ïðîâåðÿåì ñèìâîë
      for J := 1 to Length(TrimChars) do begin
        //Öèêë ïðîâåðêè ÿâëÿåòñÿ ëè ñèìâîë òðèìàåìûì %).
        if InputStr[I] = TrimChars[J] then begin
          FindedTrimChar := true;     //Íàøëè òàêîé ñèìâîë.
        end;
      end;

      //Ñìîòðèì ðåçóëüòàò ïðîâåðêè.
      if FindedTrimChar = false then begin
        //Òàêè ñèìâîë îêàçàëñÿ íå òðèìàåìûì - ïîäñ÷åò çàâåðøåí, îòìå÷àåì ÷òî ïåðâûé íå-òðèì ñèìâîë íàéäåí.
        FindedNoTrimChar := true;
      end;

    until (I = 1) or (FindedNoTrimChar = true);

    //Òåïåðü â çàâèñèìîñòè îò òîãî ÷òî íàøëè...
    If FindedNoTrimChar = true then begin
      //Åñëè â ñòðîêå åñòü ÷òî-òî ïîìèìî òðèìàåìûõ ñèìâîëîâ - áóäåì òðèìû óäàëÿòü.
      //Åñëè áû òàì áûëè òîëüêî îíè - ìîæíî áûëî áû âîîáùå íè÷åãî íå äåëàòü - âåðíåòñÿ ïóñòàÿ ñòðîêà.
      Result := LeftStr(InputStr,I);
    end;
  end;

end;

Function TrimEx(const InputStr, TrimChars : string) : string;
//Òðèìàåò ñèìâîëû ñî âñåõ ñòîðîí.
begin
  //Ïðîñòî âûçûâàåì îáå îòäåëüíûå ôóíêöèè.
  Result := TrimExLeft(TrimExRight(InputStr, TrimChars), TrimChars);
end;

Function FileToCRC32(const FileName : string; const ConsoleOutput : boolean = false) : cardinal;
//Âû÷èñëèòü CRC32 äëÿ ôàéëà, åñëè íàäî ñ èíäèêàöèåé ïðîöåññà â êîíñîëü.
const
  ReadBuffSize = 500000;              //Ïî 500 êá - äóìàþ òàêîé áóôôåð ïîéäåò äàæå íà ñàìîé äðåâíåé âåíäîâîé ñèñòåìå...
                                      //... èëè íà âèðòóàëüíîì linux-õîñòå ñ wine.
var
  CurrStream : TFileStream;
  //Buffer : array [0..ReadBuffSize-1] of byte;    //Èççà áàãà, âîçìîæíî â fpc (â äåëüôå âñå ïàøåò) - ïðèõîäèòñÿ þçàòü äèíàìè÷åñêèé ìàññèâ.
  Buffer : array of byte;
  Readed, FullReaded : LongInt;
  
begin

  //Èíèöèàëèçèðóåì çíà÷åíèå CRC
  Result := crc32(0, nil, 0);
  //è âûäåëÿåì ïàìÿòü ïîä áóôôåð...
  SetLength(Buffer,ReadBuffSize-1);

  //Ñóùåñòâóåò ëè ôàéëåã...
  if FileExists(FileName) = true then begin
    //Åñëè åñòü ÷òî âûñ÷èòûâàòü - ñ÷èòàåì...
    
    //Ñ÷åò÷èêè ÷òåíèÿ...
    Readed := 0;
    FullReaded := 0;
    
    //Îòêðûâàåì ôàéë...
    CurrStream := TFileStream.Create(FileName,fmOpenRead);
    
    //Åñëè íàäî - âûâîäèì èíôó î ïðîãðåññå â êîíñîëü.
    if ConsoleOutput = true then begin
      Write('CRC32: '+FileName+' -> ');
    end;
    
    //Ñîáñíî ñ÷èòàåì. ×èòàåì ôàéë ïî êóñî÷êàì ïîêà ôàéë íå êîí÷èòñÿ.
    repeat
      Readed := CurrStream.Read(buffer[0],ReadBuffSize);
      FullReaded := FullReaded+Readed;
      Result := crc32(Result, @buffer[0], Readed);
    until Readed = 0;
    
    //Ãîòîâî. Çàêðûòü ïðî÷èòàííûé ôàéë.
    CurrStream.Free;
    //È åñëè íàäî ñîîáùèòü íîâóþ CRC â êîíñîëü...
    if ConsoleOutput = true then begin
      Writeln(IntToHex(Result,8));
    end;
    
  end;
  
  //×èñòèì ìóñîð
  SetLength(Buffer,0);
end;

Function CheckCharNum(const Ch : char) : boolean;
//Ïðîâåðèòü - ÿâëÿåòñÿ ëè ñèìâîë öèôðîé
begin
  result := false;
  if Ch = '0' then result := true;
  if Ch = '1' then result := true;
  if Ch = '2' then result := true;
  if Ch = '3' then result := true;
  if Ch = '4' then result := true;
  if Ch = '5' then result := true;
  if Ch = '6' then result := true;
  if Ch = '7' then result := true;
  if Ch = '8' then result := true;
  if Ch = '9' then result := true;
end;

Function CheckStrInt(const St : string) : boolean;
//Ïðîâåðèòü - ÿâëÿåòñÿ ëè ñòðîêà ïðåäñòàâëåíèåì öåëî÷èñëåííîãî çíà÷åíèÿ
var
  ch : char;
  I : integer;
  
begin
  If (st <> '') and (st<>'-') then begin
    result := true;
    I := 0;
    If St[I+1] = '-' then I := I+1;
    repeat
      I := I+1;
      Ch := St[I];
      if ch <> #0 then if CheckCharNum(Ch) = false then result := false;
    until Ch = #0;
  end
  else result := false;
end;

Function CheckStrFloat(const St : string) : boolean;
//Ïðîâåðèòü - ÿâëÿåòñÿ ëè ñòðîêà ïðåäñòàâëåíèåì äðîáíîãî çíà÷åíèÿ
var
  zapatih, I : integer;
  ch : char;
  
begin
  If (st <> '') and (st <> 'NAN') and (st<>'-') then begin
    result := true;
    zapatih := 1;
    I := 0;
    If St[I+1] = '-' then I := I+1;
    repeat
      I := I+1;
      Ch := St[I];
      If ch = '.' then zapatih := zapatih-1
      else if ch <> #0 then if CheckCharNum(Ch) = false then result := false;
    until Ch = #0;
    if zapatih < 0 then result := false;
  end
  else begin
    If St = 'NAN' then result := true
    else Result := false;
  end;
end;

Function IntToBool(const InputInt : Integer) : boolean;
//Ïðåâðàòèòü Integer â Boolean
begin
  If InputInt = 1 then begin
    Result := true;
  end
  else begin
    Result := false;
  end;
end;

Function StrToBool(const InputStr : AnsiString) : boolean;
//Ïðåâðàòèòü String â Boolean
begin
  //Ïðîâåðèòü, èíòåãåðîâîå ÷èñëî ëè åòî.
  If CheckStrInt(InputStr) = true then begin
    //Åñëè êàêîå-òî ÷èñëî, òî âåðíóòü åãî çíà÷åíèå...
    Result := IntToBool(StrToInt(InputStr));
  end
  else begin
    //Åñëè òàì êàêàÿ-òî ôèãíÿ, òî âåðíóòü false
    Result := false;
  end;
end;

Function BoolToInt(const InputBool : boolean) : Integer;
//Ïðåâðàòèòü Boolean â Integer
begin
  If InputBool = true then begin
    //true
    Result := 1;
  end
  else begin
    //false
    Result := 0;
  end;
end;

Function BoolToStr(const InputBool : boolean) : AnsiString;
//Ïðåâðàòèòü Boolean â String
begin
  Result := IntToStr(BoolToInt(InputBool));
end;

Function IsLocalPath(const PathStr : string) : boolean;
//Âîçâðàùàåò true åñëè ïóòü ëîêàëüíûé, è false åñëè íåò.
//Ïîä ëîêàëüíûì ïîíèìàåòñÿ ïóòü íà÷èíàþùèéñÿ ñ òî÷êè.
begin
  Result := false;   //Ïî óìîë÷àíèþ ñ÷èòàåì ÷òî ïóòü ãëîáàëåí.
  
  if Length(PathStr) >= 1 then begin
    if PathStr[1] = '.' then begin
      Result := true;
    end;
  end;
end;

Function ReadFirstLineFromStr(const InputStr : AnsiString) : AnsiString;
//Ýëåìåíòàðíî ñêîïèðîâàòü ñòðîêó îò íà÷àëà äî áàéòà #13 èëè #10 åñëè #13 íå îáíàðóæèòñÿ.
var
  EndStrPos13, EndStrPos10, EndStrPos : Integer;
begin
  //Èíèöèàëèçàöèÿ.
  Result := '';

  //Îïðåäåëÿåì ïîçèöèþ êîíöà ñòðîêè ïî #13.
  EndStrPos13 := Longint( StrPos( PChar(InputStr), PChar(#13) ) - LongInt(InputStr) + 1 ) ;
  if EndStrPos13 <= 0 then begin
    EndStrPos13 := Length( InputStr )+1;
  end;
  //È ïî #10
  EndStrPos10 := Longint( StrPos( PChar(InputStr), PChar(#10) ) - LongInt(InputStr) + 1 ) ;
  if EndStrPos10 <= 0 then begin
    EndStrPos10 := Length( InputStr )+1;
  end;
  //Îïðåäåëÿåì ðåàëüíûé êîíåö ñòðîêè.
  if EndStrPos10 < EndStrPos13 then begin
    EndStrPos := EndStrPos10;
  end
  else begin
    EndStrPos := EndStrPos13;
  end;

  //È ñîáñíî êîïèðóåì ðåçóëüòàò.
  Result := Copy(InputStr,1,EndStrPos-1);
end;

// äîáàëÿåò ðàñøèðåíèå åñëè åãî åùå íåò.
function AddExtensionIfAbsent(const path, extension :String) :String;
var
  ex :AnsiString;
begin
  Result := path;
  ex := ExtractFileExt(path);
  if (ex = '') then begin
    Result := path + extension;
  end;
end;

// ÷èñòîå èìÿ ôàéëà, áåç ðàñøèðåíèÿ
function GetFileNameWithoutExtension(const path :String) :String;
var
  fileName :String;
  i        :Integer;
begin
  fileName := ExtractFileName(path);
  i := Length(FileName);
  while (i > 0) and (FileName[i] <> '.') do Dec(i);

  if (i > 0) then
    Result := Copy(FileName, 1, i - 1)
  else
    Result := fileName;


end;

end.