var
aHandle : THandle;
PID : Integer;
aHandel := FindWindow ('TfrmMain',nil); //첫번째 인자는 클래스명(델파이 제작프로그램)
aHandel := FindWindow('NotePad',nil); //메모장등은 프로그램명만
또는
aHandel := FindWindow(nil,'제목 없음 - 메모장'); //캡션만
또는
aHandel := FindWindow('NotePad','제목 없음 - 메모장'); //둘다 알때