2 * WINOLDAP implementation
4 * Copyright 2000 Alexandre Julliard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
27 #include "wine/winbase16.h"
28 #include "wine/server.h"
29 #include "wine/debug.h"
31 WINE_DEFAULT_DEBUG_CHANNEL(module);
34 /***********************************************************************
37 * user32.WaitForInputIdle releases the win16 lock, so here is a replacement.
39 static DWORD wait_input_idle( HANDLE process, DWORD timeout )
45 SERVER_START_REQ( get_process_idle_event )
47 req->handle = wine_server_obj_handle(process);
48 if (!(ret = wine_server_call_err( req ))) handles[1] = wine_server_ptr_handle( reply->event );
51 if (ret) return WAIT_FAILED; /* error */
52 if (!handles[1]) return 0; /* no event to wait on */
54 return WaitForMultipleObjects( 2, handles, FALSE, timeout );
58 /**************************************************************************
59 * WINOLDAP entry point
61 WORD WINAPI WinMain16( HINSTANCE16 inst, HINSTANCE16 prev, LPSTR cmdline, WORD show )
63 PROCESS_INFORMATION info;
65 DWORD count, exit_code = 1;
67 WINE_TRACE( "%x %x %s %u\n", inst, prev, wine_dbgstr_a(cmdline), show );
69 memset( &startup, 0, sizeof(startup) );
70 startup.cb = sizeof(startup);
72 if (CreateProcessA( NULL, cmdline, NULL, NULL, FALSE,
73 0, NULL, NULL, &startup, &info ))
75 /* Give 10 seconds to the app to come up */
76 if (wait_input_idle( info.hProcess, 10000 ) == WAIT_FAILED)
77 WINE_WARN("WaitForInputIdle failed: Error %d\n", GetLastError() );
78 ReleaseThunkLock( &count );
80 WaitForSingleObject( info.hProcess, INFINITE );
81 GetExitCodeProcess( info.hProcess, &exit_code );
82 CloseHandle( info.hThread );
83 CloseHandle( info.hProcess );
86 ReleaseThunkLock( &count );
88 HeapFree( GetProcessHeap(), 0, cmdline );
89 ExitThread( exit_code );