qscreen.dpr

大家来看看很好的源码啊里面包含很多知识点啊学习学习

program qscreen;

uses
  Forms,
  Windows,
  screen in 'screen.pas' {Form1},
  setkey in 'setkey.pas' {Form2},
  about in 'about.pas' {Form3},
  capture in 'capture.pas' {Form4},
  qcapture in 'qcapture.pas' {Form5};

{$R *.res}
var
  MutexHandle: THandle;
 begin  //只准程序运行一次
  MutexHandle := CreateMutex(nil, TRUE, 'MysampleAppMutex');
  if MutexHandle <> 0 then
    if GetLastError = ERROR_ALREADY_EXISTS then
      begin
        MessageBox(0, '该程序已经运行!.',
                '快速截图提示', mb_IconHand);
        CloseHandle(MutexHandle);
        Halt; 
      end
      else
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.Run;
end.