GDI-Bitmap

Development Platform:

Delphi

ProjectPaintbrush.~dpr：Code Content

							program ProjectPaintbrush;
uses
  Forms,
  UnitPaintbrush in 'UnitPaintbrush.pas' {FormPaintbrush},
  UnitFormCanvas in 'UnitFormCanvas.pas' {FormCanvas},
  UnitTxt in 'UnitTxt.pas' {FormTxt},
  UnitHelp in 'UnitHelp.pas' {FormAbout};
{$R *.res}
begin
  Application.Initialize;
  Application.Title := '屏幕画笔';
  Application.HelpFile := 'E:毕业设计屏幕画笔17帮助.HLP';
  Application.CreateForm(TFormPaintbrush, FormPaintbrush);
  FormPaintbrush.showwindow(application.handle,SW_HIDE);
  Application.CreateForm(TFormCanvas, FormCanvas);
  Application.CreateForm(TFormTxt, FormTxt);
  Application.CreateForm(TFormAbout, FormAbout);
  Application.Run;
end.

						