/trunk/UserDetect2/Plugins/EnvironmentString.dpr |
---|
23,6 → 23,7 |
var |
sl: TStringList; |
begin |
try |
sl := TStringList.Create; |
try |
EnvironmentStringsToStrings(sl); |
30,7 → 31,10 |
finally |
sl.Free; |
end; |
except |
on E: Exception do result := UD2_STATUS_HandleException(E); |
end; |
end; |
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl; |
var |