Subversion Repositories userdetect2

Rev

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

Rev 70 Rev 71
Line 4... Line 4...
4 
  Windows,
 4 
  Windows,
5 
  SysUtils,
 5 
  SysUtils,
6 
  Classes,
 6 
  Classes,
7 
  UD2_PluginIntf in '..\UD2_PluginIntf.pas',
 7 
  UD2_PluginIntf in '..\UD2_PluginIntf.pas',
8 
  UD2_PluginUtils in '..\UD2_PluginUtils.pas',
 8 
  UD2_PluginUtils in '..\UD2_PluginUtils.pas',
- 
 
 9 
  UD2_PluginStatus in '..\UD2_PluginStatus.pas',
9 
  NetworkUtils in 'NetworkUtils.pas';
 10 
  NetworkUtils in 'NetworkUtils.pas';
10 
 
 11 
 
11 
{$R *.res}
 12 
{$R *.res}
12 
 
 13 
 
13 
const
 14 
const
Line 31... Line 32...
31 
      result := UD2_STATUS_NOTAVAIL_OS_NOT_SUPPORTED;
 32 
      result := UD2_STATUS_NOTAVAIL_OS_NOT_SUPPORTED;
32 
      Exit;
 33 
      Exit;
33 
    end
 34 
    end
34 
    else if ec <> ERROR_SUCCESS then
 35 
    else if ec <> ERROR_SUCCESS then
35 
    begin
 36 
    begin
36 
      result := UD2_STATUS_NOTAVAIL_API_CALL_FAILURE;
 37 
      result := UD2_STATUS_OSError(ec);
37 
      Exit;
 38 
      Exit;
38 
    end;
 39 
    end;
39 
    result := UD2_WriteStringListToPointerW(lpIdentifier, cchSize, sl);
 40 
    result := UD2_WriteStringListToPointerW(lpIdentifier, cchSize, sl);
40 
  finally
 41 
  finally
41 
    sl.Free;
 42 
    sl.Free;