CurrentDrive := ExtractFileDrive(GetCurrentDir);
