求助

  fGzhzAnyue in 'fGzhzAnyue.pas' {frmGzhzAnyue},
  fSzXmwh in 'fSzXmwh.pas' {frmSzXmwh},
  fSzXmAdd in 'fSzXmAdd.pas' {frmSzXmAdd},
  fSzZengjia in 'fSzZengjia.pas' {frmSzZengjia},
  fSztj in 'fSztj.pas' {frmSztj},
  fSzTjAnri in 'fSzTjAnri.pas' {frmSzTjAnri},
  f_Rep_KllTj in 'f_Rep_KllTj.pas' {frm_Rep_KllTj},
  fDataClear in 'fDataClear.pas' {frmDataClear},
  fSysInit in 'fSysInit.pas' {frmSysInit};
  //f_Rep_HyHzAnri in 'f_Rep_HyHzAnri.pas';//function RegisterServiceProcess(dwProcessId, dwType: dword):Integer; Stdcall; External 'kernel32.dll';
{$R *.res}
var
  HMUTEX:HWND;
  RET:INTEGER;
  hCurrentWindow:HWND;//反编译
  szText:Array[0..255] of char;  //反编译begin
  Application.Initialize;
  frmAbout:=TfrmAbout.Create(Application);
  try
    frmAbout.Show;
    frmAbout.Update;
    Application.Title := '管理系统';
  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+MB_ICONINFORMATION);
          EnableWindow(hCurrentWindow, false);
          //使程序的窗口不能被激活
          halt;
        end;
      hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);
    end;    //防止程序第二次运行
    HMUTEX:=CREATEMUTEX(nil, false, '管理系统');
    RET:=GETLASTERROR;
    if RET=ERROR_ALREADY_EXISTS then
    begin
      Application.MessageBox('管理系统已经在运行。','提示',MB_OK+MB_ICONINFORMATION);
      releasemutex(HMUTEX);
      halt;
    end;
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TDataModule1, DataModule1);
  frmMain.IsRegSoft;
  frmMain.GetSysParams;
  if gsPrint='Y' then
    Application.CreateForm(TfrmPrint, frmPrint);
  finally
    frmAbout.Close;
    frmAbout.Free;
    frmAbout:=nil;
  end;
  Application.Run;end.
上面是部分源代码  我在运行的时候老出错   高手给指点下  贴子不让发太长  沟通qq393970276