Subversion Repositories userdetect2

Rev

Rev 92 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 92 Rev 95
Line 87... Line 87...
87 
      exit;
 87 
      exit;
88 
    end;
 88 
    end;
89 
 
 89 
 
90 
    CoInitialize(nil);
 90 
    CoInitialize(nil);
91 
    try
 91 
    try
92 
      stIdentifier := GetDiskSerial(driveletter); // driveletter must be upper case
 92 
      stIdentifier := GetDriveSerial(driveletter); // driveletter must be upper case
93 
    finally
 93 
    finally
94 
      CoUninitialize;
 94 
      CoUninitialize;
95 
    end;
 95 
    end;
96 
    result := UD2_WritePascalStringToPointerW(lpIdentifier, cchSize, stIdentifier);
 96 
    result := UD2_WritePascalStringToPointerW(lpIdentifier, cchSize, stIdentifier);
97 
  except
 97 
  except