Ir al contenido


Foto

[TRUCO DELPHI] Enumerar las unidades de Disco.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 25 agosto 2016 - 11:15

[TRUCO DELPHI] Enumerar las unidades de Disco.


delphi
  1. Procedure List_Drives;
  2. const
  3. DRIVE_UNKNOWN = 0;
  4. DRIVE_NO_ROOT_DIR = 1;
  5. DRIVE_REMOVABLE = 2;
  6. DRIVE_FIXED = 3;
  7. DRIVE_REMOTE = 4;
  8. DRIVE_CDROM = 5;
  9. DRIVE_RAMDISK = 6;
  10. var
  11. r : LongWord;
  12. Drives: array[0..128] of char;
  13. pDrive: pchar;
  14. begin
  15. r := GetLogicalDriveStrings(SizeOf(Drives), Drives);
  16. if r = 0 then exit;
  17. if r > sizeof(Drives) then
  18. raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));
  19. pDrive := Drives;
  20. while pDrive^ <> #0 do
  21. begin
  22. if GetDriveType(pDrive) = DRIVE_FIXED then
  23. Form1.ComboBox1.Items.Add(pDrive);
  24. inc(pDrive, 4);
  25. end;

Saludos!

 


  • 2




IP.Board spam blocked by CleanTalk.