Mailing List Archive: Re: OpenService WINAPI function

[REBOL] Re: OpenService WINAPI function

From: greggirwin::mindspring::com at: 24-May-2003 15:36


Hi Paul,

PT> openservice: make routine! [
PT>     hSCManager      [integer!]
PT>     lpServiceName   [string!]
PT>     dwDesiredAccess [integer!]
PT> ] winlib "OpenServiceA"

PT> openservice-ret: openservice openscmanager-ret "Unreal one^@" DEL


PT> -------------------------------------------------------------------------------------

PT> Here is the error I get:

PT> ** Script Error: openservice-ret needs a value
PT> ** Near: openservice-ret: openservice openscmanager-ret "Unreal one^@" DEL

Looks like you didn't define a return value for the routine.

openservice: make routine! [
    hSCManager      [integer!]
    lpServiceName   [string!]
    dwDesiredAccess [integer!]
    return:         [integer!]
] winlib "OpenServiceA"

-- Gregg