Kod:
procedure rapor_varsa_kapat; begin whand :=FindWindow(nil,'Enterprice raporlama ekranı');//pencere başlığından programı bul if whand 0 then PostMessage(whand,wm_close,0,0);//bulduğun programı kapat. whand:=FindWindow(nil,'Rapor ekranı');//pencere başlığından programı bul if whand 0 then PostMessage(whand,wm_close,0,0);//bulduğun programı kapat. whand:=FindWindow(nil,'Rapor onizleme');//pencere başlığından programı bul if whand 0 then PostMessage(whand,wm_close,0,0);//bulduğun programı kapat. whand:=FindWindow(nil,'Rapor Onizleme');//pencere başlığından programı bul if whand 0 then PostMessage(whand,wm_close,0,0);//bulduğun programı kapat. whand:=FindWindow(nil,'Baskı onizleme');//pencere başlığından programı bul if whand 0 then PostMessage(whand,wm_close,0,0);//bulduğun programı kapat. end;

__________________