Subversion Repositories userdetect2

Rev

Rev 90 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 90 Rev 92
Line 68... Line 68...
68 
end;
 68 
end;
69 
 
 69 
 
70 
function DynamicIdentificationStringW(lpIdentifier: LPWSTR; cchSize: DWORD; lpDynamicData: LPWSTR): UD2_STATUS; cdecl;
 70 
function DynamicIdentificationStringW(lpIdentifier: LPWSTR; cchSize: DWORD; lpDynamicData: LPWSTR): UD2_STATUS; cdecl;
71 
var
 71 
var
72 
  stIdentifier: WideString;
 72 
  stIdentifier: WideString;
73 
  driveletter: char;
 73 
  driveletter: AnsiChar;
74 
begin
 74 
begin
75 
  try
 75 
  try
76 
    if Copy(string(lpDynamicData), 2, 1) <> ':' then
 76 
    if Copy(string(lpDynamicData), 2, 1) <> ':' then
77 
    begin
 77 
    begin
78 
      result := UD2_STATUS_NOTAVAIL_INVALID_INPUT;
 78 
      result := UD2_STATUS_NOTAVAIL_INVALID_INPUT;
79 
      exit;
 79 
      exit;
80 
    end;
 80 
    end;
81 
 
 81 
 
82 
    driveletter := Copy(UpperCase(lpDynamicData), 1, 1)[1];
 82 
    driveletter := AnsiChar(Copy(UpperCase(lpDynamicData), 1, 1)[1]);
83 
 
 83 
 
84 
    if not (driveletter in ['A'..'Z']) then
 84 
    if not (driveletter in ['A'..'Z']) then
85 
    begin
 85 
    begin
86 
      result := UD2_STATUS_NOTAVAIL_INVALID_INPUT;
 86 
      result := UD2_STATUS_NOTAVAIL_INVALID_INPUT;
87 
      exit;
 87 
      exit;