Delphi-Quellcode:
function KeyDrivesExists : DWORD;
var Z : Integer;
pdwSerNum, dwMaxFNLen, dwFSysFlags : DWORD;
pszVolumeLabel : array[0..11] of char;
pszFSysName : array[0..64] of char;
begin
for Z := 0 to 25 do begin
if GetLogicalDrives and (1 shl Z) <> 0 then
begin
if GetDriveType(PChar(Chr(Z + Ord('A')) + ':\'))
=DRIVE_REMOVABLE then
if GetVolumeInformation(
(PChar(Chr(Z + Ord('A')) + ':\')), @pszVolumeLabel[0], SizeOf(pszVolumeLabel),
@pdwSerNum, dwMaxFNLen, dwFSysFlags,
@pszFSysName, SizeOf(pszFSysName) )
then Result := pdwSerNum;
end;
end;
end;
hallo,
mit dieser Funktion will ich meinen USB Stick, oder sicher auch andere als Hardwarekey benutzen indem ich die Seriennummer auslese.
klar also die Abfrage welche SN ok ist wird später abgefragt, meine Frage hat noch jemand einen Verbesserungsvorschlag und wieso bringt
mir der Compiler immer Die Warnung "Rückgabewert der Funktion 'KeyDrivesExists' könnte undefiniert sein" ??
