Форум программистов, компьютерный форум CyberForum.ru

Delphi и WinAPI

Войти
Регистрация
Восстановить пароль
 
n971030
163 / 95 / 1
Регистрация: 23.01.2010
Сообщений: 1,175
#1

Как получить номер USB флешки? - Delphi WinAPI

22.09.2016, 11:19. Просмотров 508. Ответов 1
Метки нет (Все метки)

Пробовал так выдвет хрень, какой та номер наверно USB порта
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
program Project1;
 
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  windows;
 
var
 
 SerialNum,dtyp:DWORD;
 
 a,b:DWORD;
 
 Buffer,disk :Array[0..255]of char;
 
begin
 
  dtyp:=GetDriveType('E:');
 
  if dtyp = DRIVE_REMOVABLE then
 
    writeln('Disk(type): Yes')
 
  else
 
    writeln('Disk(type): No');
 
  GetVolumeInformation(
 
                'E:',
 
                Buffer,
 
                sizeof(Buffer),
 
                @SerialNum,
 
                a,
 
                b,
 
                nil,
 
                0);
 
  if SerialNum = 1018821877 then //Г±Г°Г*ГўГ*ГЁГўГ*ГҐГ¬ ñåðèéГ*ûé Г*îìåð
 
    writeln('S\N: Yes')
 
  else
 
    writeln('S\N: No');
 
  readln;
 
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.09.2016, 11:19     Как получить номер USB флешки?
Посмотрите здесь:

Delphi 7. Как получить информацию о установленном железе и список установленных драйверов к нему Delphi WinAPI
Delphi WinAPI Перехват данных с USB устройств класса HID
Как получить введенный текст из едита? Delphi WinAPI
Получить информацию о всех установленных USB флешках в ListBox Delphi WinAPI
Как запустить программу с флешки аутораном Delphi WinAPI
Delphi WinAPI Как узнать сирейный номер флешки на Делфи
Как получить данные из TVirtualStringTree, зная его Handle? Delphi WinAPI
Delphi WinAPI Как получить список открытых окно юзера из под системной службы?
Delphi WinAPI Работа сервиса по мониторингу USB на x86 и x64 ОС
Delphi WinAPI Шифрование данных на usb носителе
Delphi WinAPI Работа с USB-считывателем смарт-карт
Delphi WinAPI Как получить доступ к субкомпоненту компонента которое расположено на чужом окне

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
MyEternity
84 / 84 / 19
Регистрация: 25.04.2016
Сообщений: 453
27.09.2016, 21:09     Как получить номер USB флешки? #2
Учитывайте, что GetVolumeInformation выдаст вам серийный номер тома, а не устройства.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function GetDriveInformation(Drive : String; Var VolumeName, FileSystemName, VolumeSerialNo : String; var MaxComponentLength, FileSystemFlags : LongWord) : Boolean;
var
  _VolumeName,_FileSystemName: array [0..MAX_PATH-1] of Char;
  VolumeSerialNumber: DWORD;
Begin
  try
    if GetVolumeInformation(PChar(Drive),_VolumeName,MAX_PATH,@VolumeSerialNumber, MaxComponentLength,FileSystemFlags,_FileSystemName,MAX_PATH) then
    Begin
      VolumeSerialNo := Format('%8.8X', [VolumeSerialNumber]);
      VolumeName :=_VolumeName;
      FileSystemName :=_FileSystemName;
      Result := True;
    End else Result:=False;
  except
    Result:=False;
  end;
end;
Yandex
Объявления
27.09.2016, 21:09     Как получить номер USB флешки?
Ответ Создать тему
Опции темы

Текущее время: 15:54. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru