home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-lmsvc.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  12.4 KB  |  209 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-lmsvc.ads,v $ 
  2. -- $Revision: 1.11 $ $Date: 96/03/15 12:53:20 $ $Author: stm $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. with Win32.Process;
  6. with Win32.Winnt;
  7.  
  8. package Win32.Lmsvc is
  9.  
  10.     SERVICE_INSTALL_STATE            : constant := 16#3#;   -- lmsvc.h:144
  11.     SERVICE_UNINSTALLED              : constant := 16#0#;   -- lmsvc.h:145
  12.     SERVICE_INSTALL_PENDING          : constant := 16#1#;   -- lmsvc.h:146
  13.     SERVICE_UNINSTALL_PENDING        : constant := 16#2#;   -- lmsvc.h:147
  14.     SERVICE_INSTALLED                : constant := 16#3#;   -- lmsvc.h:148
  15.     SERVICE_PAUSE_STATE              : constant := 16#c#;   -- lmsvc.h:152
  16.     LM20_SERVICE_ACTIVE              : constant := 16#0#;   -- lmsvc.h:153
  17.     LM20_SERVICE_CONTINUE_PENDING    : constant := 16#4#;   -- lmsvc.h:154
  18.     LM20_SERVICE_PAUSE_PENDING       : constant := 16#8#;   -- lmsvc.h:155
  19.     LM20_SERVICE_PAUSED              : constant := 16#c#;   -- lmsvc.h:156
  20.     SERVICE_NOT_UNINSTALLABLE        : constant := 16#0#;   -- lmsvc.h:160
  21.     SERVICE_UNINSTALLABLE            : constant := 16#10#;  -- lmsvc.h:161
  22.     SERVICE_NOT_PAUSABLE             : constant := 16#0#;   -- lmsvc.h:165
  23.     SERVICE_PAUSABLE                 : constant := 16#20#;  -- lmsvc.h:166
  24.     SERVICE_REDIR_PAUSED             : constant := 16#700#; -- lmsvc.h:171
  25.     SERVICE_REDIR_DISK_PAUSED        : constant := 16#100#; -- lmsvc.h:172
  26.     SERVICE_REDIR_PRINT_PAUSED       : constant := 16#200#; -- lmsvc.h:173
  27.     SERVICE_REDIR_COMM_PAUSED        : constant := 16#400#; -- lmsvc.h:174
  28.     SERVICE_CTRL_INTERROGATE         : constant := 0;       -- lmsvc.h:186
  29.     SERVICE_CTRL_PAUSE               : constant := 1;       -- lmsvc.h:187
  30.     SERVICE_CTRL_CONTINUE            : constant := 2;       -- lmsvc.h:188
  31.     SERVICE_CTRL_UNINSTALL           : constant := 3;       -- lmsvc.h:189
  32.     SERVICE_CTRL_REDIR_DISK          : constant := 16#1#;   -- lmsvc.h:198
  33.     SERVICE_CTRL_REDIR_PRINT         : constant := 16#2#;   -- lmsvc.h:199
  34.     SERVICE_CTRL_REDIR_COMM          : constant := 16#4#;   -- lmsvc.h:200
  35.     SERVICE_IP_NO_HINT               : constant := 16#0#;   -- lmsvc.h:211
  36.     SERVICE_CCP_NO_HINT              : constant := 16#0#;   -- lmsvc.h:212
  37.     SERVICE_IP_QUERY_HINT            : constant := 16#10000#;
  38.                                                             -- lmsvc.h:214
  39.     SERVICE_CCP_QUERY_HINT           : constant := 16#10000#;
  40.                                                             -- lmsvc.h:215
  41.     SERVICE_IP_CHKPT_NUM             : constant := 16#ff#;  -- lmsvc.h:221
  42.     SERVICE_CCP_CHKPT_NUM            : constant := 16#ff#;  -- lmsvc.h:222
  43.     SERVICE_IP_WAIT_TIME             : constant := 16#ff00#;-- lmsvc.h:228
  44.     SERVICE_CCP_WAIT_TIME            : constant := 16#ff00#;-- lmsvc.h:229
  45.     SERVICE_IP_WAITTIME_SHIFT        : constant := 8;       -- lmsvc.h:235
  46.     SERVICE_NTIP_WAITTIME_SHIFT      : constant := 12;      -- lmsvc.h:236
  47.     UPPER_HINT_MASK                  : constant := 16#ff00#;-- lmsvc.h:241
  48.     LOWER_HINT_MASK                  : constant := 16#ff#;  -- lmsvc.h:242
  49.     UPPER_GET_HINT_MASK              : constant := 16#ff00000#;
  50.                                                             -- lmsvc.h:243
  51.     LOWER_GET_HINT_MASK              : constant := 16#ff00#;-- lmsvc.h:244
  52.     SERVICE_NT_MAXTIME               : constant := 16#ffff#;-- lmsvc.h:245
  53.     SERVICE_RESRV_MASK               : constant := 16#1ffff#;
  54.                                                             -- lmsvc.h:246
  55.     SERVICE_MAXTIME                  : constant := 16#ff#;  -- lmsvc.h:247
  56.     SERVICE_BASE                     : constant := 3050;    -- lmsvc.h:258
  57.     SERVICE_UIC_NORMAL               : constant := 0;       -- lmsvc.h:259
  58.     SERVICE_UIC_BADPARMVAL           : constant := 3051;    -- lmsvc.h:265
  59.     SERVICE_UIC_MISSPARM             : constant := 3052;    -- lmsvc.h:271
  60.     SERVICE_UIC_UNKPARM              : constant := 3053;    -- lmsvc.h:277
  61.     SERVICE_UIC_RESOURCE             : constant := 3054;    -- lmsvc.h:282
  62.     SERVICE_UIC_CONFIG               : constant := 3055;    -- lmsvc.h:287
  63.     SERVICE_UIC_SYSTEM               : constant := 3056;    -- lmsvc.h:292
  64.     SERVICE_UIC_INTERNAL             : constant := 3057;    -- lmsvc.h:297
  65.     SERVICE_UIC_AMBIGPARM            : constant := 3058;    -- lmsvc.h:302
  66.     SERVICE_UIC_DUPPARM              : constant := 3059;    -- lmsvc.h:307
  67.     SERVICE_UIC_KILL                 : constant := 3060;    -- lmsvc.h:312
  68.     SERVICE_UIC_EXEC                 : constant := 3061;    -- lmsvc.h:318
  69.     SERVICE_UIC_SUBSERV              : constant := 3062;    -- lmsvc.h:323
  70.     SERVICE_UIC_CONFLPARM            : constant := 3063;    -- lmsvc.h:328
  71.     SERVICE_UIC_FILE                 : constant := 3064;    -- lmsvc.h:333
  72.     SERVICE_UIC_M_NULL               : constant := 0;       -- lmsvc.h:348
  73.     SERVICE_UIC_M_MEMORY             : constant := 3070;    -- lmsvc.h:354
  74.     SERVICE_UIC_M_DISK               : constant := 3071;    -- lmsvc.h:355
  75.     SERVICE_UIC_M_THREADS            : constant := 3072;    -- lmsvc.h:356
  76.     SERVICE_UIC_M_PROCESSES          : constant := 3073;    -- lmsvc.h:357
  77.     SERVICE_UIC_M_SECURITY           : constant := 3074;    -- lmsvc.h:367
  78.     SERVICE_UIC_M_LANROOT            : constant := 3075;    -- lmsvc.h:370
  79.     SERVICE_UIC_M_REDIR              : constant := 3076;    -- lmsvc.h:375
  80.     SERVICE_UIC_M_SERVER             : constant := 3077;    -- lmsvc.h:380
  81.     SERVICE_UIC_M_SEC_FILE_ERR       : constant := 3078;    -- lmsvc.h:385
  82.     SERVICE_UIC_M_FILES              : constant := 3079;    -- lmsvc.h:390
  83.     SERVICE_UIC_M_LOGS               : constant := 3080;    -- lmsvc.h:395
  84.     SERVICE_UIC_M_LANGROUP           : constant := 3081;    -- lmsvc.h:400
  85.     SERVICE_UIC_M_MSGNAME            : constant := 3082;    -- lmsvc.h:405
  86.     SERVICE_UIC_M_ANNOUNCE           : constant := 3083;    -- lmsvc.h:410
  87.     SERVICE_UIC_M_UAS                : constant := 3084;    -- lmsvc.h:415
  88.     SERVICE_UIC_M_SERVER_SEC_ERR     : constant := 3085;    -- lmsvc.h:420
  89.     SERVICE_UIC_M_WKSTA              : constant := 3087;    -- lmsvc.h:425
  90.     SERVICE_UIC_M_ERRLOG             : constant := 3088;    -- lmsvc.h:430
  91.     SERVICE_UIC_M_FILE_UW            : constant := 3089;    -- lmsvc.h:435
  92.     SERVICE_UIC_M_ADDPAK             : constant := 3090;    -- lmsvc.h:440
  93.     SERVICE_UIC_M_LAZY               : constant := 3091;    -- lmsvc.h:446
  94.     SERVICE_UIC_M_UAS_MACHINE_ACCT   : constant := 3092;    -- lmsvc.h:451
  95.     SERVICE_UIC_M_UAS_SERVERS_NMEMB  : constant := 3093;    -- lmsvc.h:456
  96.     SERVICE_UIC_M_UAS_SERVERS_NOGRP  : constant := 3094;    -- lmsvc.h:461
  97.     SERVICE_UIC_M_UAS_INVALID_ROLE   : constant := 3095;    -- lmsvc.h:466
  98.     SERVICE_UIC_M_NETLOGON_NO_DC     : constant := 3096;    -- lmsvc.h:473
  99.     SERVICE_UIC_M_NETLOGON_DC_CFLCT  : constant := 3097;    -- lmsvc.h:478
  100.     SERVICE_UIC_M_NETLOGON_AUTH      : constant := 3098;    -- lmsvc.h:483
  101.     SERVICE_UIC_M_UAS_PROLOG         : constant := 3099;    -- lmsvc.h:488
  102.     SERVICE2_BASE                    : constant := 5600;    -- lmsvc.h:494
  103.     SERVICE_UIC_M_NETLOGON_MPATH     : constant := 5600;    -- lmsvc.h:497
  104.     SERVICE_UIC_M_LSA_MACHINE_ACCT   : constant := 5601;    -- lmsvc.h:502
  105.     SERVICE_UIC_M_DATABASE_ERROR     : constant := 5602;    -- lmsvc.h:508
  106.  
  107.     type SERVICE_INFO_0;                                    -- lmsvc.h:69
  108.     type SERVICE_INFO_1;                                    -- lmsvc.h:73
  109.     type SERVICE_INFO_2;                                    -- lmsvc.h:80
  110.  
  111.     type PSERVICE_INFO_0 is access all SERVICE_INFO_0;      -- lmsvc.h:71
  112.     subtype LPSERVICE_INFO_0 is PSERVICE_INFO_0;            -- lmsvc.h:71
  113.     type PSERVICE_INFO_1 is access all SERVICE_INFO_1;      -- lmsvc.h:78
  114.     subtype LPSERVICE_INFO_1 is PSERVICE_INFO_1;            -- lmsvc.h:78
  115.     type PSERVICE_INFO_2 is access all SERVICE_INFO_2;      -- lmsvc.h:88
  116.     subtype LPSERVICE_INFO_2 is PSERVICE_INFO_2;            -- lmsvc.h:88
  117.  
  118.     type SERVICE_INFO_0 is                                  -- lmsvc.h:69
  119.         record
  120.             svci0_name: Win32.Winnt.LPTSTR;                 -- lmsvc.h:70
  121.         end record;
  122.  
  123.     type SERVICE_INFO_1 is                                  -- lmsvc.h:73
  124.         record
  125.             svci1_name  : Win32.Winnt.LPTSTR;               -- lmsvc.h:74
  126.             svci1_status: Win32.DWORD;                      -- lmsvc.h:75
  127.             svci1_code  : Win32.DWORD;                      -- lmsvc.h:76
  128.             svci1_pid   : Win32.DWORD;                      -- lmsvc.h:77
  129.         end record;
  130.  
  131.     type SERVICE_INFO_2 is                                  -- lmsvc.h:80
  132.         record
  133.             svci2_name          : Win32.Winnt.LPTSTR;       -- lmsvc.h:81
  134.             svci2_status        : Win32.DWORD;              -- lmsvc.h:82
  135.             svci2_code          : Win32.DWORD;              -- lmsvc.h:83
  136.             svci2_pid           : Win32.DWORD;              -- lmsvc.h:84
  137.             svci2_text          : Win32.Winnt.LPTSTR;       -- lmsvc.h:85
  138.             svci2_specific_error: Win32.DWORD;              -- lmsvc.h:86
  139.             svci2_display_name  : Win32.Winnt.LPTSTR;       -- lmsvc.h:87
  140.         end record;
  141.  
  142.     function NetServiceControl(
  143.                 servername: Win32.Winnt.LPTSTR;
  144.                 service   : Win32.Winnt.LPTSTR;
  145.                 opcode    : Win32.DWORD;
  146.                 arg       : Win32.DWORD;
  147.                 bufptr    : access Win32.PBYTE)
  148.                return Win32.DWORD;                          -- lmsvc.h:95
  149.  
  150.     function NetServiceEnum(
  151.                 servername   : Win32.Winnt.LPTSTR;
  152.                 level        : Win32.DWORD;
  153.                 bufptr       : access Win32.PBYTE;
  154.                 prefmaxlen   : Win32.DWORD;
  155.                 entriesread  : Win32.LPDWORD;
  156.                 totalentries : Win32.LPDWORD;
  157.                 resume_handle: Win32.LPDWORD)
  158.                return Win32.DWORD;                          -- lmsvc.h:104
  159.  
  160.     function NetServiceGetInfo(
  161.                 servername: Win32.Winnt.LPTSTR;
  162.                 service   : Win32.Winnt.LPTSTR;
  163.                 level     : Win32.DWORD;
  164.                 bufptr    : access Win32.PBYTE)
  165.                return Win32.DWORD;                          -- lmsvc.h:115
  166.  
  167.     function NetServiceInstall(
  168.                 servername: Win32.Winnt.LPTSTR;
  169.                 service   : Win32.Winnt.LPTSTR;
  170.                 argc      : Win32.DWORD;
  171.                 argv      : Win32.Process.String_Vector_Access;
  172.                 bufptr    : access Win32.PBYTE)
  173.                return Win32.DWORD;                          -- lmsvc.h:123
  174.  
  175. private
  176.  
  177.     pragma Convention(C, SERVICE_INFO_0);                   -- lmsvc.h:69
  178.     pragma Convention(C, SERVICE_INFO_1);                   -- lmsvc.h:73
  179.     pragma Convention(C, SERVICE_INFO_2);                   -- lmsvc.h:80
  180.  
  181.     pragma Import(Stdcall, NetServiceControl, "NetServiceControl");
  182.                                                             -- lmsvc.h:95
  183.     pragma Import(Stdcall, NetServiceEnum, "NetServiceEnum");     -- lmsvc.h:104
  184.     pragma Import(Stdcall, NetServiceGetInfo, "NetServiceGetInfo");
  185.                                                             -- lmsvc.h:115
  186.     pragma Import(Stdcall, NetServiceInstall, "NetServiceInstall");
  187.                                                             -- lmsvc.h:123
  188.  
  189. -------------------------------------------------------------------------------
  190. --
  191. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  192. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  193. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  194. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  195. -- the accuracy and the use of this file.  This file may be used, copied,
  196. -- modified and distributed only by licensees of Microsoft Corporation's
  197. -- WIN32 Software Development Kit in accordance with the terms of the 
  198. -- licensee's End-User License Agreement for Microsoft Software for the
  199. -- WIN32 Development Kit.
  200. --
  201. -- Copyright (c) Intermetrics, Inc. 1995
  202. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  203. -- Microsoft is a registered trademark and Windows and Windows NT are
  204. -- trademarks of Microsoft Corporation.
  205. --
  206. -------------------------------------------------------------------------------
  207.  
  208. end Win32.Lmsvc;
  209.