GDI/图象编程

开发平台：

Delphi

Project2.~dpr：源码内容

							program Project2;
uses
  Forms,windows,
  Unit1 in 'Unit1.pas' {Form1};
var
hwnd:thandle;
{$R *.RES}
begin
  hwnd:=findwindow('Tform1','looking');
  if hwnd=0 then
  begin
  Application.Initialize;
  Application.Title := 'what are you doing?';
  Application.CreateForm(TForm1, Form1);
  application.ShowMainForm:=false;
  Application.Run;
  end
  else messagebox(0,'program is running!','monitor',mb_ok);
end.

						