Pruebas (no respondas a este mensaje)

[[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

[[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)

[jacanche]

Vaya,para ser un hilo de no responder, ya van bastantes respuestas, me fui a comer, y cuando regreso ya van como 3 paginas mas de respuestas,

en fin, ++NumMensages

[[Delphius]]

Hola... hace tan solo unas cuantas horas esto llegaba a la página 4, ahora veo que está en la 7.

¡Como que hay mucho tiempo libre!

No sigan... que me dejan atrás en el marcador... ¡me voy a quedar solito!

Código Delphi [-]
procedure IncrementarNroMensaje;
var NroNuevo: integer;
begin
  NroNuevo := NroMsj + Random(10);
  if NroNuevo = NroMsj
    then begin
             inc(NroMsj, CantMsj(roman) div 10);
             SendMessage('Gracias roman por colaborar con la cuenta XD');
           end
     else NroMsj := NroNuevo;
end;

....

if DelphiusConectado
  then IncrementarNroMensaje;

No probé el código... pero la idea es que si no logro poner algún mensaje... intentar "robarle" unos puntos al maestro roman

Saludos,
PD: Las cosas que uno inventa cuando tiene sueño.