Einzelnen Beitrag anzeigen

PhaTTy

Registriert seit: 16. Mai 2004
Ort: Laupheim
40 Beiträge
 
Delphi 7 Enterprise
 
#11

Re: Seriennummer von USB Stick

  Alt 18. Mai 2004, 19:10
Das bietet mal die lieben Windows-API:

function GetVolumeInformation (lpRootPathName : PChar; lpVolumeNameBuffer : PChar; nVolumeNameSize : Integer; var lpVolumeSerialNumber : Integer; var lpMaximumComponentLength : Integer; var lpFileSystemFlags : Integer; lpFileSystemNameBuffer : PChar; nFileSystemNameSize : Integer) : Integer; stdcall; external 'kernel32' name 'GetVolumeInformationA'

function GetVolumeNameForVolumeMountPoint (lpszVolumeMountPoint : PChar; lpszVolumeName : PChar; cchBufferLength : Integer) : Integer; stdcall; external 'kernel32' name 'GetVolumeNameForVolumeMountPointA'

function GetVolumePathName (lpszFileName : PChar; lpszVolumePathName : PChar; cchBufferLength : Integer) : Integer; stdcall; external 'kernel32' name 'GetVolumePathNameA'
Make it idiot-proof and someone will invent a better idiot...
  Mit Zitat antworten Zitat