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 | for i := 0 to sl.Count-1 do |
44 | for i := 0 to sl.Count-1 do |
44 | begin |
45 | begin |