darkghost.dpr

远程控制辕马

program DarkGhost;

uses
  UnitPrincipal in 'UnitPrincipal.pas' {FormPrincipal},
  UnitSplash in 'UnitSplash.pas' {FormSplash},
  UnitOpciones in 'UnitOpciones.pas' {FormOpciones},
  Windows,
  Forms,
  Messages,
  UnitControl in 'UnitControl.pas' {FormControl},
  UnitCambiarTituloWindow in 'UnitCambiarTituloWindow.pas' {FormCambiarTituloWindow},
  UnitEditorDelServer in 'UnitEditorDelServer.pas' {FormEditor};

const
   CM_RESTORE = WM_USER + $1000; //Se usa para prevenir dos ejecuciones simultanias de la aplicacion

 var
   RvHandle : hWnd; //Se usa para prevenir dos ejecuciones simultanias de la aplicacion

{$R *.res}

begin
//Principio codigo para prevenir dos ejecuciones simultanias de la aplicacion
  RvHandle := FindWindow('[0066]Este es el cliente del DarkGhost[0066]', NIL);
   if RvHandle > 0 then
   begin
     PostMessage(RvHandle, CM_RESTORE, 0, 0);
     Exit;
   end;
//Final codigo para prevenir dos ejecuciones simultanias de la aplicacion

FormSplash := TFormSplash.Create(Application);
FormSplash.Show;
FormSplash.Update;
FormPrincipal.Delay(2000);
FormSplash.Hide;
FormSplash.Free;
Application.Initialize;
Application.Title := 'DarkGhost Upadate 1.0         :: elhacker.net ::';
  Application.CreateForm(TFormPrincipal, FormPrincipal);
  Application.CreateForm(TFormOpciones, FormOpciones);
  Application.CreateForm(TFormControl, FormControl);
  Application.CreateForm(TFormCambiarTituloWindow, FormCambiarTituloWindow);
  Application.CreateForm(TFormEditor, FormEditor);
  Application.Run;
end.