え〜と、前々からどうも動かすとCPU 100%食う自作プログラムがあったのですが‥‥ procedure WaitForAppl(AHandle : THandle); var exitCode: DWord; begin Repeat exitCode := WaitForSingleObject(AHandle, 0); Application.ProcessMessages; Until exitCode …