Autor: Ryszard Glab (rGLAB_at_waw.pdi.net)
Data: Fri 16 Aug 1996 - 19:31:51 MET DST
In article <32107579.15904775_at_news.cyf-kr.edu.pl>,
Cezariusz.Marek_at_ComArch.Krakow.PL (Cezariusz Marek) wrote:
>Witam,
>Czy ktos moze mi powiedziec, jak zaczekac na wykonanie sie aplikacji
>wywolanej z programu dla Win 3.x?
Sprobuj uzyc funkcji GetModuleUsage() z Windows API.
Ponizej przyklad w Visual Objects
function RunApplication(strCommand as string,
showmode as shortint) as logic
local hInst as shortint
local lSuccess := true as logic
if( hInst := WinExec(String2PSZ(strCommand), showmode) > 32 )
while( GetModuleUsage(hInst) > 0 )
ApplicationExec( EXECWHILEEVENT )
end
else
lSuccess := false
endif
return( lSuccess )
----------------------=-----------------------=-----------------------
r(ycho)GLAB | rglab_at_waw.pdi.net | Warsaw, Poland
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 12:52:05 MET DST