jiangjin.dpr

类似于安利公司的奖金制度下的会员层次关系、会员级别、会员奖金等

program jiangjin;

uses
  Forms,
  windows,
  sysutils,
  Data_Unit1 in 'Data_Unit1.pas' {DataModule1: TDataModule},
  Fudao_Setup in 'Fudao_Setup.pas' {Form4},
  guanli_Setup in 'guanli_Setup.pas' {Form5},
  jiangjin_chaxun in 'jiangjin_chaxun.pas' {Form6},
  jiangjinfafang in 'jiangjinfafang.pas' {Form8},
  jiesuan_month in 'jiesuan_month.pas' {Form9},
  main in 'main.pas' {Form1},
  member_input in 'member_input.pas' {Form2},
  member_upgrade in 'member_upgrade.pas' {Form3},
  select_member in 'select_member.pas' {Form7},
  VerifyPassword in 'VerifyPassword.pas' {FVerifyPassword};

//  Function RegisterServiceProcess(dwProcessId, dwType: dword): Integer; Stdcall;
//　　External 'kernel32.dll'
{$R *.RES}
Var
  myMutex: HWND;
  hCurrentWindow: HWnd;  //反编译要的
  szText: Array[0..254] Of char;  //反编译要的
Begin
    Application.Initialize;
    Application.Title := '会员奖金管理系统';
//  RegisterServiceProcess(GetCurrentProcessID, 1); //让程序在Ctl+Alt+Del中消失.
//  防止反编译开始
    hCurrentWindow := GetWindow(APPLICATION.Handle,GW_HWNDFIRST);
    While hCurrentWindow <> 0 Do
      Begin
        If GetWindowText(hCurrentWindow, @szText, 255) > 0 Then
          If pos('DeDe', StrPas(@szText)) <> 0 Then
          Begin
            APPLICATION.MESSAGEBOX('想反编译我？没那么容易！','哈哈......你这家伙！',mb_ok);
        //closewindow(hCurrentWindow);//使该程序窗口最小化
            enablewindow(hCurrentWindow, false);
        //使该程序的窗口不能被激活 如果能获取该程序的线程ID号，则可以使该程序又不能使用，又不能关闭，酷吧？
            halt;
          End;
        hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);
      End;
// 防止程序重复运行
    myMutex := CREATEMUTEX(Nil, FALSE, '会员奖金管理系统');
    if WaitForSingleObject(myMutex,0)<>wait_TimeOut then Begin //程序没有被运行过

      Application.CreateForm(TDataModule1, DataModule1);
      Application.CreateForm(TFVerifyPassword, FVerifyPassword);
      Application.Run;
    End
    Else
      APPLICATION.MESSAGEBOX('程序已经运行!', '提示', mb_ok);
    releasemutex(myMutex);
End.