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 34... Line 35...
34 
      result := UD2_STATUS_NOTAVAIL_OS_NOT_SUPPORTED;
 35 
      result := UD2_STATUS_NOTAVAIL_OS_NOT_SUPPORTED;
35 
      Exit;
 36 
      Exit;
36 
    end
 37 
    end
37 
    else if ec <> ERROR_SUCCESS then
 38 
    else if ec <> ERROR_SUCCESS then
38 
    begin
 39 
    begin
39 
      result := UD2_STATUS_NOTAVAIL_API_CALL_FAILURE;
 40 
      result := UD2_STATUS_OSError(ec);
40 
      Exit;
 41 
      Exit;
41 
    end;
 42 
    end;
42 
 
 43 
 
43 
    // This procedure should not find any more MAC addresses...
 44 
    // This procedure should not find any more MAC addresses...
44 
    GetLocalIPAddressList(sl);
 45 
    GetLocalIPAddressList(sl);