From f276fd1340a078e7f04785bac07520434a6dbc90 Mon Sep 17 00:00:00 2001 From: r57zone Date: Tue, 9 Jun 2015 01:13:46 +0400 Subject: [PATCH] update --- Unit1.pas | 1 - 1 file changed, 1 deletion(-) diff --git a/Unit1.pas b/Unit1.pas index 5eca765..4db24f2 100644 --- a/Unit1.pas +++ b/Unit1.pas @@ -47,7 +47,6 @@ procedure TForm1.FormCreate(Sender: TObject); var WND:HWND; Path:string; begin -Application.Title:='Notification Show'; WND:=FindWindow(nil, 'Notification Show'); if WND<>0 then while WND<>0 do begin sleep(100); WND:=FindWindow(nil, 'Notification Show'); end; Caption:='Notification Show';