Mega Code Archive

 

Categories / Delphi / Hardware

 

Sürücü tipinin alinmasi [floppy, sabit disk ]

procedure TForm1.Button1Click(Sender: TObject); var DriveType: Integer; begin DriveType := GetDriveType(pChar('A:\')); case drivetype of 0 : ShowMessage( 'Tip alinamadi' ); 1 : ShowMessage( 'Gecersiz sürücü' ); DRIVE_REMOVABLE : ShowMessage( 'Floppy Disk' ); DRIVE_FIXED : ShowMessage( 'Sabit Disk' ); DRIVE_REMOTE : ShowMessage( 'Network Drive' ); DRIVE_CDROM : ShowMessage( 'CD-Rom Drive' ); DRIVE_RAMDISK : ShowMessage( 'Ramdisk Drive' ); else ShowMessage('Bilinmiyor'); end; end;