Pruebas (no respondas a este mensaje)

[[cHackAll]]

Empezado por roman

[Error] Unit1.pas(15): Cannot initialize local variables

// Saludos

Código Delphi [-]
procedure Thread(cHackAll: Variant; var Last: LongBool);
begin
 Inc(cHackAll);
 if Last then
  Last := not Last;
end;

[jhonny]

Al, ¿Sabias que se debe decir librerías a las librerías que usamos por todas partes, en nuestras aplicaciones?.

[[cHackAll]]

Huuyyy ántes que roman regrese y se de cuenta;

Código Delphi [-]
procedure Thread(cHackAll: Variant; var Last: LongBool);
begin
 Inc(cHackAll);
 if Last then
  Last := not Last;
end;
 
...
 
 Thread(cHackAll, Last); // Donde el primer parametro NO es roman...   
 
...

[[cHackAll]]

Código Delphi [-]
 Thread(cHackAll, Last);
 cHackAll := -Abs(cHackAll);
 if cHackAll < 0 then
  cHackAll := cHackAll * cHackAll;

[jhonny]

No creo que haya problema, en que yo ya deba dejar la oficina y no quiera irme sin dejar el numero de mis mensajes en una cantidad par

[[egostar]]

Código Delphi [-]
egostar := roman + cHackAll;

Salud OS.

[vtdeleon]

Increible el auge de este hilo

[[cHackAll]]

Momento amigo roman; creo que mi último post esta de más... GRACIAS:

Código Delphi [-]
var cHackAll: Cardinal;  // UNSIGNED
 
...
 
begin
 Thread(cHackAll, Last);
 cHackAll := -Abs(cHackAll);
// cHackAll := 4294966960;  
 
...

[[egostar]]

Ustedes generen los theads que quieran, yo solo sumo puntos...

Salud OS.

[[cHackAll]]

Empezado por egostar

Ustedes generen los theads que quieran, yo solo sumo puntos...

Salud OS.

+
No tan rapido egostar:

Código Delphi [-]
var
 roman, cHackAll: Cardinal;  // UNSIGNED
 egostar: Byte; // UNSIGNED [0..255]
 
...
 
begin
// roman := 11621;
// cHackAll := 337;
 Thread(cHackAll, Last);
 cHackAll := -Abs(cHackAll);
// cHackAll := 4294966960;
 egostar := roman + cHackAll;
// egostar := 20;

[[egostar]]

Empezado por cHackAll

+
No tan rapido egostar:

Código Delphi [-]
var  roman, cHackAll: Cardinal;  
// UNSIGNED  egostar: Byte; 
// UNSIGNED [0..255]   ...   
begin 
// roman := 11621; 
// cHackAll := 337;  
Thread(cHackAll, Last);  
cHackAll := -Abs(cHackAll); 
// cHackAll := 4294966960;  
egostar := roman + cHackAll; 
// egostar := 20;

[Error] Unit1.pas(30): Constant expression violates subrange bounds

Siempre y cuando compile el programa.....

Salud OS.

[[cHackAll]]

Código Delphi [-]
Dec(egostar);

[[egostar]]

oops, eso si que dolio.

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
  maestro := egostar;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if egostar < maestro then
     egostar := inc(maestro,1000);
end;

Saluid OS

[[cHackAll]]

Empezado por egostar

oops, eso si que dolio.

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
  maestro := egostar;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if egostar < maestro then
     egostar := inc(maestro,1000);
end;

Saluid OS

[Error] Unit1.pas(30): Incompatible types: 'Byte' and 'procedure, untyped pointer or untyped parameter'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Código Delphi [-]
Dec(egostar);
// ó
 egostar := maestro - 1000

[[egostar]]

Ouchhhh, muerto con mi propia arma......

Salud OS.

Sin la i,

[[cHackAll]]

Empezado por egostar

...Sin la i...

[[egostar]]

Empezado por cHackAll

Por esto,

Salud OS

[[cHackAll]]

jajajaja, esque es beviernes!

[[egostar]]

Empezado por roman

Bueno ya basta, no hay manera con ustedes:

Y no me digan que debo ajustar privilegios para ejecutar esta función porque- sean sinceros -todos usan cuentas de administrador (y porque no recuerdo el código de memoria )



// Saludos

Haber, optimicemos código

Código Delphi [-]
if usuario <> egostar then
  ExitWindowsEx(EWX_LOGOFF or EWX_FORCE, 0);

Salud OS.

[[cHackAll]]

Momento, tal código solo cierra mi sesion en mi Server 2003
Saludos y hasta otro "no respondan" (solo yo)