Ver Mensaje Individual
  #1  
Antiguo 20-06-2014
carlosprotos carlosprotos is offline
Miembro
 
Registrado: abr 2014
Posts: 28
Reputación: 0
carlosprotos Va por buen camino
Talking Ayuda con mi base de modulo.

Tengo un problema el cual no puedo resolver aun , necesito que me ayuden a crear una base para obtener un modulo.
Me gustaría crear una base de modulo para mi entrenador de juego.

Código:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,;

type
  TForm1 = class(TForm)
    edit1: TEdit;
    label1: TLabel;
    chekbox1: TCheckBox;
    procedure checkbox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.checkbox1Click(Sender: TObject);
var
module:pchar;
begin
module:=pchar(edit1.text);
if checkbox1.Checked=True then
pdword(GetModuleHandle(edit1.text)+$25D10):=999;
end;

end.
mi direccion en C.E es csh5F4.tmp+$25D10.
donde edit1 tengo que colocar mi modulo que es el csh5F4.tmp... pero mi problema es que ese modulo cambia de nombre cada vez que entro al juego.el unico cambio que hay son las ultimas 3 palabras , a veces esta como csh5F4.tmp , cuando entro
de nuevo se cambia a csh6D1.tmp , luego csh2FC.tmp,etc , y asi sucesivamente. Y debo de crear una base
para que me genere el modulo automaticamente en edit1 , y no estar buscando el modulo
en la carpeta :C:\Users\Rodrix\AppData\Local\Temp (en esa carpeta aparece el modulo ,nuevo y cambiado de nombre, y con la hora y fecha con la que ingrese al juego) y copiar el nombre y pegarla en edit1 para que me trabaje.
Alguna solución o fuente..?
Responder Con Cita