تشخیص مینیمایز یا ماکسیمایز

[Mask]

با سلام به همه عزیزان
می خواستم که یک برنامه بنویسم که تشخیص بده که فلان برنامه در حالت مینیمایز است یا ماکسیمایز . مثلا اگه مین بود ماکس کنه یا حالا بالعکس.
ممنون.

[DAMAVAND]

با استفاده از کد زير ميتوني اين کارو انجام بدي . براي مثال اين کد وضعيت پنجره برنامه Notpad رو بر ميگردونه و اون رو تغيير ميده :


procedure TForm1.Button1Click(Sender: TObject);
var
h:HWND;
Wp:WINDOWPLACEMENT;
Statuse:Integer;
begin
h:=FindWindow('Notepad',nil);
GetWindowPlacement(h,@wp);
Statuse:=Wp.showCmd;
case Statuse of
1:Caption:='Window Statuse Is Normal';
2:begin
Caption:='Window Statuse Is Minimize';
ShowWindow(h,SW_MAXIMIZE);
end;
//
3:begin
Caption:='Window Statuse Is maximize';
ShowWindow(h,SW_MINIMIZE);
end;
//
end;
//
end;




موفق باشيد.