Subversion Repositories recyclebinunit

Rev

Rev 96 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 96 Rev 99
Line 848... Line 848...
848
 
848
 
849
function _isFAT(drive: char): boolean;
849
function _isFAT(drive: char): boolean;
850
var
850
var
851
  Dummy2: DWORD;
851
  Dummy2: DWORD;
852
  Dummy3: DWORD;
852
  Dummy3: DWORD;
853
  FileSystem: array[0..MAX_PATH] of char;
853
  FileSystem: array[0..MAX_PATH-1] of char;
854
  VolumeName: array[0..MAX_PATH] of char;
854
  VolumeName: array[0..MAX_PATH-1] of char;
855
  s: string;
855
  s: string;
856
begin
856
begin
857
  result := false;
857
  result := false;
858
  if _driveExists(drive) then
858
  if _driveExists(drive) then
859
  begin
859
  begin