13 respuestas en este tema

[mantpro]

Hola, necesito modificar la solapa general de propiedades de sistema ( ram/ cpu etc ... ) se que se puede hacer con delphi pero no se como... lo yo quiero por ejemplo es borrar todo lo que dice hay y modificarlo a mi gusto, por ejemplo yo tengo 2 gb de ram .. y lo que quiero es poner que tengo 6 gb se entiende ? lo mismo con el procesador... si hay alguien que sabe como hacerlo porfavor que me ayude .. desde ya muchas gracias.

PD: Aca dejo un codigo que puede que les sirva para hacerlo .. es de un clubdelphi

delphi

library Injection;
 
uses
  Windows, Sysutils, Messages, Psapi, CommCtrl;
 
type
  TShared = record
    Hook: HHooK;
    AttachCount: Integer;
  end;
  PShared = ^TShared;
 
  PItem = ^TItem;
  TItem = record
    hWnd: HWND;
    WndProc: Pointer;
    Next: PItem;
  end;
 
var
  Mutex, Mem: THandle;
  Shared: PShared;
  Injected: Boolean;
  HandleList: PItem;
 
function FindWindowProc(hWnd: HWND; Item: PItem): Pointer;
begin
  if Item <> nil then
  begin
    if Item.hWnd = hWnd then
      Result:= Item.WndProc
    else
      Result:= FindWindowProc(hWnd,Item.Next);
  end else
    Result:= nil;
end;
 
function WindowProc(hWnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM):
  LRESULT; stdcall;
var
  Str: String;
begin
  if (Msg = WM_SETTEXT) then
  begin
    Str:= String(PChar(LParam));
    Str:= StringReplace(Str,'1,00 GB','2,00 GB',[rfReplaceAll,rfIgnoreCase]);
    Str:= StringReplace(Str,'512 MB','1,00 GB',[rfReplaceAll,rfIgnoreCase]);
    LParam:= Longint(PChar(Str));
  end;
  Result:= CallWindowProc(FindWindowProc(hWnd,HandleList),hWnd,Msg,WParam,lParam);
end;
 
procedure HookWindow(hWnd: HWND);
var
  Item: PItem;
begin
  if FindWindowProc(hWnd, HandleList) = nil then
  begin
    GetMem(Item,Sizeof(TItem));
    Item.hWnd:= hWnd;
    Item.Next:= HandleList;
    Item.WndProc:= Pointer(SetWindowLong(hWnd,GWL_WNDPROC,LongInt(@WindowProc)));
    HandleList:= Item;
  end;
end;
 
function CallWndProc(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;
  stdcall;
var
  ClassName: array[0..16] of Char;
begin
  if Code = HC_ACTION then
    if Injected then
    begin
      FillChar(ClassName,Sizeof(ClassName),0);
      if GetClassName(PCWPStruct(lParam).hwnd,@ClassName,Sizeof(ClassName)-1) > 0 then
        if StrIComp(ClassName,'Link Window') = 0 then
        begin
          HookWindow(PCWPStruct(lParam).hwnd);
        end;
    end;
  Result := CallNextHookEx(Shared^.Hook, Code, wParam, lParam);
end;
 
procedure StartHook; stdcall;
begin
  if Shared <> nil then
  begin
    WaitForSingleObject(Mutex, INFINITE);
    try
      with Shared^ do
      begin
        if Hook = 0 then
          Hook := SetWindowsHookEx(WH_CALLWNDPROC, @CallWndProc, HInstance, 0);
      end;
    finally
      ReleaseMutex(Mutex);
    end;
  end;
end;
 
procedure StopHook; stdcall;
begin
  if Shared <> nil then
  begin
    WaitForSingleObject(Mutex, INFINITE);
    try
      with Shared^ do
      begin
        if Hook <> 0 then
        begin
          UnhookWindowsHookEx(Hook);
          Hook := 0;
        end;
      end;
    finally
      ReleaseMutex(Mutex);
    end;
  end;
end;
 
procedure Inject;
var
  Process: THandle;
  ModName: array[0..MAX_PATH] of Char;
  Target: array[0..MAX_PATH] of Char;
begin
  Injected:= FALSE;
  Process := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, FALSE,
    GetCurrentProcessId);
  if Process <> 0 then
  begin
    if GetModuleFileNameEx(Process, 0, ModName,sizeof(ModName)-1) > 0  then
    begin
      FillChar(Target,Sizeof(Target),#0);
      GetSystemDirectory(@Target,Sizeof(Target)-1);
      StrLCat(Target,'\rundll32.exe',Sizeof(Target)-1);
      OutputDebugString(Target);
      if StrIComp(Target,ModName) = 0 then
      begin
        // Un pequeño pitido nos avisa de que no hemos infiltrado
        Windows.Beep(500,100);
        HandleList:= nil;
        Injected:= TRUE;
      end;
    end;
    CloseHandle(Process);
  end;
end;
 
procedure Attach; stdcall;
var
  isNew: boolean;
begin
  Mutex := CreateMutex(nil, True, '{92366DA1-4F66-472D-BE12-65F0993F62AC}');
  try
    Mem := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, SizeOf(TShared),
      '{D1A38D62-9FAB-4298-A358-579D2D286E40}');
    isNew := GetLastError() = 0;
    if Mem <> 0 then
      Shared := MapViewOfFile(Mem, FILE_MAP_WRITE, 0, 0, 0)
    else
      Shared := nil;
    if Shared <> nil then
      if isNew then
        with Shared^ do
        begin
          Hook := 0;
          AttachCount := 1;
        end
      else
        inc(Shared^.AttachCount);
  finally
    ReleaseMutex(Mutex);
  end;
  // Aqui viene la inyeccion
  Inject;
end;
 
procedure UnHookWindows(Item: PItem);
begin
  if Item <> nil then
  begin
    UnHookWindows(Item.Next);
    SetWindowLong(Item.hWnd,GWL_WNDPROC,LongInt(Item.WndProc));
    FreeMem(Item);
  end;
end;
 
procedure Detach; stdcall;
begin
  WaitForSingleObject(Mutex, INFINITE);
  try
    if (Shared <> nil) then
      dec(Shared^.AttachCount);
  finally
    ReleaseMutex(Mutex);
  end;
  if (Shared <> nil) then
    if Shared^.AttachCount <= 0 then
    begin
      StopHook;
      UnmapViewOfFile(Shared);
      CloseHandle(Mem);
      CloseHandle(Mutex);
    end;
  if Injected then
    UnHookWindows(HandleList);
end;
 
procedure DLLEntryPoint(Reason: integer);
begin
  case Reason of
    Dll_Process_Detach: Detach;
    Dll_Process_Attach: Attach;
  end;
end;
 
exports
  StartHook,
  StopHook;
 
begin
  Attach;
  DLLProc:= @DLLEntryPoint;
end.

[escafandra]

Hola, mantpro. Bienvenido al foro.

Ese código que expones en de seoane y viene de aquí. En ese hilo tienes suficiente información sobre este tema. Es un poco controvertido que quieras suplantar la visualización todas las propiedades del sistema, ¿no crees?. Seguro que tienes una buena razón pero resulta un tanto chocante...

Saludos.

[mantpro]

Hola, mantpro. Bienvenido al foro.

Ese código que expones en de seoane y viene de aquí. En ese hilo tienes suficiente información sobre este tema. Es un poco controvertido que quieras suplantar la visualización todas las propiedades del sistema, ¿no crees?. Seguro que tienes una buena razón pero resulta un tanto chocante...

Saludos.

Hola, la razon por la que necesito eso es para un proyecto en la secundaria .. y como quiero un 10 asegurado me vendria de perfecto esto que seguro que sorprendo a los profesores 
Precisamente ese codigo lo saque de clubdelphi y seoane lo habia posteado 
Exactamente lo que necesitaria es que envez de 1 gb diga 6 y cambiar el nombre y los ghz del procesador tambien.. gracias por haberme respondido..
Saludos.

[escafandra]

Bueno, me parece difícil de entender como en la escuela te ponen una tarea para hackear las propiedades del sistema...

De todas formas, insisto en que el tema está bastante claro en el hilo original, así que, si realmente quieres sorprender a tu profesor deberías experimentar con el código y entenderlo, de lo contrario será tu profesor el que te sorprenda a ti. 

Saludos.

[mantpro]

Bueno, me parece difícil de entender como en la escuela te ponen una tarea para hackear las propiedades del sistema...

De todas formas, insisto en que el tema está bastante claro en el hilo original, así que, si realmente quieres sorprender a tu profesor deberías experimentar con el código y entenderlo, de lo contrario será tu profesor el que te sorprenda a ti. 

Saludos.

Jaja mas que nada es de programacion el proyecto y como no creo que nadie haga algo parecido me parecio "original" .. bueno vere que puedo hacer 

[Caral]

Hola

.......... deberías experimentar con el código y entenderlo, .........

Saludos.

Entender un codigo de Seoane, cHacAll, escafandra y otros maestros????.
Eso si me gustaria verlo.
Saludos

[Delphius]

Con el debido respeto mantpro, ¿Te parece "original" querer pretender lucirse ante los otros cuando se demuestra a todas luces que no hiciste tu el código? No sólo darás una falsa y penosa visión sino que además pretenderás llevarte el crédito que se merece Seoane.

Es mucho más sincero y original demostrar algo con los conceptos aprendidos que aparentar ser algo que no eres. Llamarás la atención seguramente,... a todos los compañeros pero tu profesor te sorprenderá con una baja nota.

Si dices saber poco y nada, es mejor callarse y trabajar con lo poco y nada que se ha aprendido y enseñado. Después de todo es el objetivo de tu profesor: que pongan en práctica los conceptos vistos al momento.

Nadie nació aprendiendo, incluso Seoane. Se aprende leyendo, investigando, practicando... cometiendo errores, probando, y probando... corrigiendo y volviendo a cometir errores. La práctica, la constancia, el esfuerzo, y la dedicación e importancia que tu le des a la asignatura es lo que te hará sentir más orgulloso y victorioso. Por tus escritos pareciera ser que quieres optar por la salida fácil.
Es mucho más anímico para uno recibir un 10 por esfuerzo propio que del ajeno.

Te invito a meditar mejor tu accionar y comenzar en DelphiAccess de un mejor modo.

Saludos,

[mantpro]

Con el debido respeto mantpro, ¿Te parece "original" querer pretender lucirse ante los otros cuando se demuestra a todas luces que no hiciste tu el código? No sólo darás una falsa y penosa visión sino que además pretenderás llevarte el crédito que se merece Seoane.

Es mucho más sincero y original demostrar algo con los conceptos aprendidos que aparentar ser algo que no eres. Llamarás la atención seguramente,... a todos los compañeros pero tu profesor te sorprenderá con una baja nota.

Si dices saber poco y nada, es mejor callarse y trabajar con lo poco y nada que se ha aprendido y enseñado. Después de todo es el objetivo de tu profesor: que pongan en práctica los conceptos vistos al momento.

Nadie nació aprendiendo, incluso Seoane. Se aprende leyendo, investigando, practicando... cometiendo errores, probando, y probando... corrigiendo y volviendo a cometir errores. La práctica, la constancia, el esfuerzo, y la dedicación e importancia que tu le des a la asignatura es lo que te hará sentir más orgulloso y victorioso. Por tus escritos pareciera ser que quieres optar por la salida fácil.
Es mucho más anímico para uno recibir un 10 por esfuerzo propio que del ajeno.

Te invito a meditar mejor tu accionar y comenzar en DelphiAccess de un mejor modo.

Saludos,

Me parece original la idea, por otra parte, ¿vos te crees que a mi me importan los creditos? .. no tendria ningun problema en darselos a Seoane o al que me ayudara si asi lo quisiera..  yo lo que quiero simplemente es hacerlo ¿o acaso vos naciste sabiendo todo y nunca le pediste ayuda o algo a alguien ?

Sinceramente me parece que viniste de una manera muy prepotente.. ¿no seria mejor que escriban los que quieren ayudar y en todo caso que ellos sean los que  citen o acoten?

[egostar]

Me parece original la idea, por otra parte, ¿vos te crees que a mi me importan los creditos? .. no tendria ningun problema en darselos a Seoane o al que me ayudara si asi lo quisiera..  yo lo que quiero simplemente es hacerlo ¿o acaso vos naciste sabiendo todo y nunca le pediste ayuda o algo a alguien ?

Sinceramente me parece que viniste de una manera muy prepotente.. ¿no seria mejor que escriban los que quieren ayudar y en todo caso que ellos sean los que  citen o acoten?

No lo tomes a mal pero lo que creo debería importarte es en aprender y no de sólo acreditrar una materia, al final el único beneficiado eres tú, ni Delphius ni nadie del foro se benefica de ayudarte, así que tomatelo con calma.

Por cierto bienvenido a DelphiAccess.

Salud OS

[Delphius]

Me parece original la idea, por otra parte, ¿vos te crees que a mi me importan los creditos? .. no tendria ningun problema en darselos a Seoane o al que me ayudara si asi lo quisiera..  yo lo que quiero simplemente es hacerlo ¿o acaso vos naciste sabiendo todo y nunca le pediste ayuda o algo a alguien ?

Sinceramente me parece que viniste de una manera muy prepotente.. ¿no seria mejor que escriban los que quieren ayudar y en todo caso que ellos sean los que  citen o acoten?

Mantpro, No vine con la idea de ser prepotente. Solamente expuse una verdad: impresionarás a tus compañeros y amigos, pero a tu profesor no. En impresionismo tendrás tu 10, pero a tu profesor eso no le gustará porque le resultará más que obvio que no ha sido obra original tuya. Simplemente aprovechas el fruto de alguien.

El objetivo de la cátedra es aprender y poner en práctica los conceptos. No hacer bromitas sin sentido y que no hacen al objetivo de la materia.
Como estudiante, alumno y profesional te digo que lo que buscas no te aportará nada útil. Te lo puedo asegurar.

Yo no he dicho que haya nacido sabiendo, es más he dicho que nadie nace sabiendo, incluso Seoane.

Yo también, a su debido momento, me senté a preguntar y evacuar mis dudas. Y lo sigo haciendo. La diferencia entre vos y yo está en el modo de pedir ayuda.
Tu modo es "¿me podrían hacer esto?", y la mía por otra parte es pedir consejos y sugerencias para luego fortalecer mis propias investigaciones. Me encanta leer, probar y aprender de libros, artículos, la ayuda mismo de Delphi, etc.

Yo no busco el 10, sino aprender.

Al menos yo hago un esfuerzo por instruirme. Tu por otra parte parece que te limitas a pedirnos que te solucionemos algo, que incluso es un tema bastante molesto e incómodo. Y te lo hemos dicho desde un comienzo.

Si te molesta mi modo de haber dicho algo sincero, que no va con el afán de perjudicarte sino de ofrecer un punto de vista más seguro y gratificante, entonces no te digo nada más, ojalá recibas la ayuda que quieras.

Como lo ha dicho Egostar, una cosa diferente es aprobar, otra muy diferente es aprender. Si deseas aprender aquí estaremos para asesorarte, pero esto sólo será posible si estás abierto a la posibilidad de recibir sugerencias (y sanas críticas).

Te podríamos ayudar en lo que nos permita nuestros conocimientos, pero con esa muestra de actitud de facilitarismo y burlesca lo dudo.

Bienvenido a DelphiAccess, espero que encuentres a este sitio una buena fuente de conocimiento. Que esto no te deje llevar una falsa impresión. Aquí se ayuda a la gente, y a pesar de que DA se caracteriza por un buen ritmo de humor se exige compromiso y dedicación por quien pregunta.

Saludos,

[mantpro]

Me parece original la idea, por otra parte, ¿vos te crees que a mi me importan los creditos? .. no tendria ningun problema en darselos a Seoane o al que me ayudara si asi lo quisiera..  yo lo que quiero simplemente es hacerlo ¿o acaso vos naciste sabiendo todo y nunca le pediste ayuda o algo a alguien ?

Sinceramente me parece que viniste de una manera muy prepotente.. ¿no seria mejor que escriban los que quieren ayudar y en todo caso que ellos sean los que  citen o acoten?

No lo tomes a mal pero lo que creo debería importarte es en aprender y no de sólo acreditrar una materia, al final el único beneficiado eres tú, ni Delphius ni nadie del foro se benefica de ayudarte, así que tomatelo con calma.

Por cierto bienvenido a DelphiAccess.

Salud OS

No solo lo que quiero es aprobar tambien me interesa el solo hecho de saber hacerlo! pero no se como aprenderlo que sea de otra forma de la que ya pedi.. por el simple hecho que no se crear codigos Delphi  y no se si hay un tutorial para lo que yo busco.. por eso lo pedi de esta manera como vi en ClubDelphi que Seoane habia ayudado a un pibe y era casi lo mismo que lo que yo queria vine y pregunte.. ya que son pocas cosas lo que necesito segun mi parecer, le tendria que cambiar los valores de 2gb por 6gb que es lo que yo quiero poner..

Saludos.

Me parece original la idea, por otra parte, ¿vos te crees que a mi me importan los creditos? .. no tendria ningun problema en darselos a Seoane o al que me ayudara si asi lo quisiera..  yo lo que quiero simplemente es hacerlo ¿o acaso vos naciste sabiendo todo y nunca le pediste ayuda o algo a alguien ?

Sinceramente me parece que viniste de una manera muy prepotente.. ¿no seria mejor que escriban los que quieren ayudar y en todo caso que ellos sean los que  citen o acoten?

Mantpro, No vine con la idea de ser prepotente. Solamente expuse una verdad: impresionarás a tus compañeros y amigos, pero a tu profesor no. En impresionismo tendrás tu 10, pero a tu profesor eso no le gustará porque le resultará más que obvio que no ha sido obra original tuya. Simplemente aprovechas el fruto de alguien.

El objetivo de la cátedra es aprender y poner en práctica los conceptos. No hacer bromitas sin sentido y que no hacen al objetivo de la materia.
Como estudiante, alumno y profesional te digo que lo que buscas no te aportará nada útil. Te lo puedo asegurar.

Yo no he dicho que haya nacido sabiendo, es más he dicho que nadie nace sabiendo, incluso Seoane.

Yo también, a su debido momento, me senté a preguntar y evacuar mis dudas. Y lo sigo haciendo. La diferencia entre vos y yo está en el modo de pedir ayuda.
Tu modo es "¿me podrían hacer esto?", y la mía por otra parte es pedir consejos y sugerencias para luego fortalecer mis propias investigaciones. Me encanta leer, probar y aprender de libros, artículos, la ayuda mismo de Delphi, etc.

Yo no busco el 10, sino aprender.

Al menos yo hago un esfuerzo por instruirme. Tu por otra parte parece que te limitas a pedirnos que te solucionemos algo, que incluso es un tema bastante molesto e incómodo. Y te lo hemos dicho desde un comienzo.

Si te molesta mi modo de haber dicho algo sincero, que no va con el afán de perjudicarte sino de ofrecer un punto de vista más seguro y gratificante, entonces no te digo nada más, ojalá recibas la ayuda que quieras.

Como lo ha dicho Egostar, una cosa diferente es aprobar, otra muy diferente es aprender. Si deseas aprender aquí estaremos para asesorarte, pero esto sólo será posible si estás abierto a la posibilidad de recibir sugerencias (y sanas críticas).

Te podríamos ayudar en lo que nos permita nuestros conocimientos, pero con esa muestra de actitud de facilitarismo y burlesca lo dudo.

Bienvenido a DelphiAccess, espero que encuentres a este sitio una buena fuente de conocimiento. Que esto no te deje llevar una falsa impresión. Aquí se ayuda a la gente, y a pesar de que DA se caracteriza por un buen ritmo de humor se exige compromiso y dedicación por quien pregunta.

Saludos,

No solo lo que quiero es aprobar tambien me interesa el solo hecho de saber hacerlo! pero no se como aprenderlo que sea de otra forma de la que ya pedi.. por el simple hecho que no se crear codigos Delphi  y no se si hay un tutorial para lo que yo busco.. por eso lo pedi de esta manera como vi en ClubDelphi que Seoane habia ayudado a un pibe y era casi lo mismo que lo que yo queria vine y pregunte.. ya que son pocas cosas lo que necesito segun mi parecer, le tendria que cambiar los valores de 2gb por 6gb que es lo que yo quiero poner..

[egostar]

..... ya que son pocas cosas lo que necesito segun mi parecer, le tendria que cambiar los valores de 2gb por 6gb que es lo que yo quiero poner..

Yo probaría cambiando directamente el valor en la línea donde cambia 1GB a 2GB, intentalo y comentanos.

Salud OS

[Delphius]

Yo creo que si bien los cambios son pocos, el asunto no es tan simple... el código de muestra corresponde a una dll  . El asunto pasa en saber usar esa dll 

Hace tiempo que no veo ese hilo, incluso no recuerdo si participé de él. No se como andará CD pero al menos me sigue saltando las advertencias de sitio atacante. Puedo ignorar los avisos de advertencias pero no me deja llegar a ver los hilos y los mensajes. Sólo a los foros y ya me bloquea el acceso.

Yo no puedo ayudar. Lo siento.

Por otra parte, mantrpro si deseas embarcarte en Delphi (Huy.... me salió una aviso de publicidad de Embarcadero  ) te recomiendo la lectura del libro "La Cara Oculta de Delphi". Se puede descargar libremente (formato pdf) desde muchos sitios. Si bien los conceptos se exponen sobre Delphi 4, al día de hoy siguen vigentes. Poco han cambiado las cosas.

Saludos,

[escafandra]

...tambien me interesa el solo hecho de saber hacerlo! pero no se como aprenderlo que sea de otra forma de la que ya pedi.. por el simple hecho que no se crear codigos Delphi...

Bueno, entonces supongo que puedes manejar otro lenguaje de programación. La ddl en cuestión esta basada en la API de Windows y casi nada de ese código es dependiente 100% de delphi, así que podrás migrarlo a tu lenguaje preferido. Pero si te empeñas en delphi, ¿como explicarás a tu profesor lo que has hecho en un entorno que no dominas?.

Si lo que quieres es aprender, comienza por estudiar lo que son el manejo de dlls, los Hooks de Windows, lo que es la función de tratamiento de mensajes de una ventana, lo que es un Window Subclassing y la API SetWindowLong. Cuando sepas y, sobre todo, entiendas todo eso estarás en disposición de empezar a poder comprender el código de seoane que expones, y entonces realmente estarás aprendiendo a hacer lo que pides u otras cosas basadas en ese conocimiento porque entenderás y dominarás los porqués.

Si sólo te interesa el producto terminado, confórmate con el código que ya tienes, cambia cuatro cosas..., pero no aprenderás nada de él.

Saludos.