vrjoffa.dpr

小程序 可以任意的拖动 会找到一定的水平线 右击退出即可

Program vrjoffa;

Uses
  Forms,
  windows,
  main In 'main.pas' {MainForm},
  joffa In 'joffa.pas' {JoffaForm},
  bitmapregion In 'bitmapregion.pas',
  settings In 'settings.pas' {SettingsForm};

{$R *.RES}
Begin
  Application.Initialize;
  Application.ShowMainForm := False;
  Application.Title := 'Joffa';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TSettingsForm, SettingsForm);
  ShowWindow(Application.Handle, sw_hide);
//  ShowWindow(SettingsForm.Handle,sw_hide);
//  SettingsForm.Visible:=True;
  Application.Run;
End.