SC_HANDLE hSCM = ::OpenSCManager( NULL, NULL, SC_MANAGER_ALL_ACCESS );
if( hSCM == NULL )
        return FALSE;

SC_HANDLE hService = ::CreateService(
        hSCM, _T("MyServiceName"), _T("MyServiceName"),
        SERVICE_ALL_ACCESS,   SERVICE_WIN32_OWN_PROCESS,
        SERVICE_AUTO_START, SERVICE_ERROR_NORMAL,
        _T("Path To Executable"), NULL, NULL, NULL, NULL, NULL);

if( hService )
    ::CloseServiceHandle( hService );
if( hSCM )
    ::CloseServiceHandle( hSCM );