Search results for 'Drive Type Detection'. 1 post(s) found.
- 2007/09/19 Detecting Drive Types
Here's how to get the types of drives on your computer:
//Note: you will need one button and
//one memo on your form, for this tip...
procedure TForm1.Button1Click(Sender: TObject) ;
var
Drive: Char;
DriveLetter: String[4];
begin
for Drive := 'A' to 'Z' do
begin
DriveLetter := Drive + ':\';
case GetDriveType(PChar(Drive + ':\')) of
DRIVE_REMOVABLE:
Memo1.Lines.Add(DriveLetter + ' Floppy Drive') ;
DRIVE_FIXED:
Memo1.Lines.Add(DriveLetter + ' Fixed Drive') ;
DRIVE_REMOTE:
Memo1.Lines.Add(DriveLetter + ' Network Drive') ;
DRIVE_CDROM:
Memo1.Lines.Add(DriveLetter + ' CD-ROM Drive') ;
DRIVE_RAMDISK:
Memo1.Lines.Add(DriveLetter + ' RAM Disk') ;
end;
end;
end;
//one memo on your form, for this tip...
procedure TForm1.Button1Click(Sender: TObject) ;
var
Drive: Char;
DriveLetter: String[4];
begin
for Drive := 'A' to 'Z' do
begin
DriveLetter := Drive + ':\';
case GetDriveType(PChar(Drive + ':\')) of
DRIVE_REMOVABLE:
Memo1.Lines.Add(DriveLetter + ' Floppy Drive') ;
DRIVE_FIXED:
Memo1.Lines.Add(DriveLetter + ' Fixed Drive') ;
DRIVE_REMOTE:
Memo1.Lines.Add(DriveLetter + ' Network Drive') ;
DRIVE_CDROM:
Memo1.Lines.Add(DriveLetter + ' CD-ROM Drive') ;
DRIVE_RAMDISK:
Memo1.Lines.Add(DriveLetter + ' RAM Disk') ;
end;
end;
end;
Another posts included in "Delphi"
| Disable Mouse and Keyboard from Delphi Code (0) | 2007/09/19 |
| Display Standard Windows Properties dialog (0) | 2007/09/19 |
| Disable ALT+TAB, CTRL+ESC, CTRL+ALT+DEL (0) | 2007/09/19 |
| Detecting and preventing Windows shut down (0) | 2007/09/19 |
| Create new program group in the Start menu (0) | 2007/09/19 |
| Copying Group of Files using Delphi with Standard Animation Dialog (SHF... (0) | 2007/09/19 |
| Controling sound volume from code (0) | 2007/09/19 |
| How to Close Another Application by Windows Caption (0) | 2007/09/19 |
Drive Type Detection,
DRIVE_CDROM,
DRIVE_FIXED,
DRIVE_RAMDISK,
DRIVE_REMOTE,
DRIVE_REMOVABLE,
GetDriveType,
Windows API
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 03:48
moneyideas
-
Subject different money making ideas
2010/01/29 12:47
moneyideas
-
Subject different money making ideas
2010/01/31 16:40
moneyideas
Prev
Rss Feed