Subversion Repositories userdetect2

Rev

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

Rev 89 Rev 90
Line 73... Line 73...
73 
  driveletter: char;
 73 
  driveletter: char;
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_FAILURE_INVALID_ARGS;
 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 := 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_FAILURE_INVALID_ARGS;
 86 
      result := UD2_STATUS_NOTAVAIL_INVALID_INPUT;
87 
      exit;
 87 
      exit;
88 
    end;
 88 
    end;
89 
 
 89 
 
90 
    CoInitialize(nil);
 90 
    CoInitialize(nil);
91 
    try
 91 
    try