1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{$IfDef read_interface}
type
TGConfError = (GCONF_ERROR_SUCCESS := 0,GCONF_ERROR_FAILED := 1,
GCONF_ERROR_NO_SERVER := 2,GCONF_ERROR_NO_PERMISSION := 3,
GCONF_ERROR_BAD_ADDRESS := 4,GCONF_ERROR_BAD_KEY := 5,
GCONF_ERROR_PARSE_ERROR := 6,GCONF_ERROR_CORRUPT := 7,
GCONF_ERROR_TYPE_MISMATCH := 8,GCONF_ERROR_IS_DIR := 9,
GCONF_ERROR_IS_KEY := 10,GCONF_ERROR_OVERRIDDEN := 11,
GCONF_ERROR_OAF_ERROR := 12,GCONF_ERROR_LOCAL_ENGINE := 13,
GCONF_ERROR_LOCK_FAILED := 14,GCONF_ERROR_NO_WRITABLE_DATABASE := 15,
GCONF_ERROR_IN_SHUTDOWN := 16);
function gconf_error_quark:TGQuark;cdecl;external gconfdll name 'gconf_error_quark';
function GCONF_ERROR : TGConfError;
{$EndIf read_interface}
{$Ifdef read_implementation}
function GCONF_ERROR : TGConfError;
begin
GCONF_ERROR := TGConfError(gconf_error_quark);
end;
{$Endif read_implementation}
|