تابعی که با آن می توان فهمید دلفی در حال اجرا است.

تابعی که با آن می توان فهمید دلفی در حال اجرا است. - نسخه قابل چاپ

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: تابعی که با آن می توان فهمید دلفی در حال اجرا است. (/showthread.php?tid=578)

تابعی که با آن می توان فهمید دلفی در حال اجرا است. - Amin_Mansouri - 08-01-2011

تابعی که با آن می توان فهمید دلفی در حال اجرا است یا خیر.

کد:
function DelphiIsRunning : boolean;

var

  H1, H2, H3, H4 : Hwnd;

const

  A1 : array[0..12] of char = 'TApplication'#0;

  A2 : array[0..15] of char = 'TAlignPalette'#0;

  A3 : array[0..18] of char = 'TPropertyInspector'#0;

  A4 : array[0..11] of char = 'TAppBuilder'#0;

  T1 : array[0..6] of char = 'Delphi'#0;

begin

  H1 := FindWindow(A1, T1);

  H2 := FindWindow(A2, nil);

  H3 := FindWindow(A3, nil);

  H4 := FindWindow(A4, nil);

  Result := (H1 <> 0) and (H2 <> 0) and

            (H3 <> 0) and (H4 <> 0);

end;