怎么判断该盘符为本地磁盘还是网络驱动器，这个有什么函数吗

如何判断该盘符为本地磁盘还是网络驱动器，这个有什么函数吗？
各位好，如何判断该盘符为本地磁盘还是网络驱动器，这个有什么函数吗？
例如：c: d: e: f: N: Z:，期中N和Z为映射网络驱动器。

case GetDriveType('盘符') of
  DRIVE_REMOTE: ShowMessage('网络驱动器');
  DRIVE_FIXED:  ShowMessage('硬盘驱动器');
  DRIVE_CDROM:  ShowMessage('光盘驱动器');
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  DRIVE_UNKNOWN = 0;
  DRIVE_NO_ROOT_DIR = 1;
  DRIVE_REMOVABLE = 2;
  DRIVE_FIXED = 3;
  DRIVE_REMOTE = 4;
  DRIVE_CDROM = 5;
  DRIVE_RAMDISK = 6;
var
    a : Integer;
    str : string;
begin
    str := 'C:';
    a := GetDriveType(PChar(str));
    ShowMessage(IntToStr(a));
end;