læse og skrive til USB memory stick

der plejer at hoppe et lille vindue op i højre hjørne: ny enhed tilsluttet, + du kan vist nok se den inde i denne-computer

nu programmere jeg godt nok i vb, men jeg ville løbe drevene igennem og checke hvad de er..
eks.: removable, harddisk, cdrom
du ved at dit diskette drev (som er removable) er A:.. hvis der så er et andet drev som er removable, f.eks. g:, er det nok ikke diskette drevet.. hellere ikke harddisk eller cdrom..

jeg mener at det er sådan man "populater" en combobox med drevene (bogstaver og label)..

bare et forslag..

men hvordan kan se om et drev er removable, harddisk, cdrom o.lign. ?

Ved at bruge nedenstående finder du først alle tilgængelige drev og derefter hvilken type de er.

function GetDriveTypes(Drive: String): String;
var
  typ: Integer;
  s:  string;
begin
  s  := Drive;
  typ := GetDriveType(PChar(s));
  if Typ <> 0 then case typ of
      DRIVE_REMOVABLE:
        begin
          Result := Drive + ' = Drive Removable / Diskette';
        end;
      DRIVE_FIXED:
        begin
          Result := Drive + ' = Drive fixed / Harddrive';
        end;
      DRIVE_CDROM:
        begin
          Result := Drive + ' = CD ROM Drive';
        end;
      DRIVE_RAMDISK:
        begin
          Result := Drive + ' = RAM Drive';
        end;
      DRIVE_REMOTE:
        begin
          Result := Drive + ' = Remote Drive / Network drive';
        end;
    end;
end;

procedure GetDrives;
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
  r: LongWord;
  Drives: array[0..128] of char;
  pDrive: PChar;
begin
  r := GetLogicalDriveStrings(SizeOf(Drives), Drives);
  if r = 0 then Exit;
  if r > SizeOf(Drives) then
    raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));
  pDrive := Drives;
  while pDrive^ <> #0 do
  begin
    if (GetDriveType(pDrive) = DRIVE_FIXED) OR (GetDriveType(pDrive) = DRIVE_REMOVABLE) OR (GetDriveType(pDrive) = DRIVE_REMOTE) OR
      (GetDriveType(pDrive) = DRIVE_CDROM) then
        Form1.ListBox1.Items.Add(GetDriveTypes(pDrive));

    Inc(pDrive, 4);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Getdrives;
end;

Snowball

takker snowball.....

Ved du også hvordan man kan checke hvornår der indsættes en USB memory stick ?

og hvordan man skriver/læser til/fra en USB memory stick ?

Umiddelbart vil jeg tro at du bare kan kopiere filerne som hvis det var en normal harddisk da jeg mener at en memory stick vil fremstå som et selvstændigt drev !? Er ikke sikker da jeg aldrig har haft en selv, men hvis den kommer frem som et drev, så er det jo bare at kopiere filer som normalt. (Brug evt. Borrisholts FileHandling http://www.borrisholt.com/FileIO/DelphiSource/Filehandling.zip)

Snowball

takker for svaret.......hvordan skal jg give dig point når det kun er en kommentar ?

Nu kan du give mig point :)

Snowball