Leer Edit de otro formulario usando INI

[malditango]

en tu code no veo como accedas al fichero, ni leCadINI ni esEntINI
with tinifile.create (changefileext(paramstr(0),'.INI')) do // aqui crea el archivo pero no se en que ubicacion

[Casimiro Notevi]

Empezado por malditango

en tu code no veo como accedas al fichero, ni leCadINI ni esEntINI
with tinifile.create (changefileext(paramstr(0),'.INI')) do // aqui crea el archivo pero no se en que ubicacion

Recuerda poner las etiquetas al código, porque ahí no se entiende nada.

[Dark_Code]

Empezado por malditango

en tu code no veo como accedas al fichero, ni leCadINI ni esEntINI
with tinifile.create (changefileext(paramstr(0),'.INI')) do // aqui crea el archivo pero no se en que ubicacion

La función que uso en la Consola es este:

function leCadINI (clave, cadena : string; defecto : string) : string;
begin
  with TiniFile.Create ('c:\Fichero.ini') do
  try
    result := readString (clave, cadena, defecto);
  finally
    free;
  end;
end;

Y en el form utilizo la siguiente función:

//Lee una cadena de texto de un INI
function leCadINI (clave, cadena : string; defecto : string) : string;
begin
  with TiniFile.Create ('c:\Fichero.ini') do
  try
    result := readString (clave, cadena, defecto);
  finally
    free;
  end;
end;

//Escribe un entero en un INI
procedure esEntINI (clave, cadena : string; valor : integer);
begin
  with TiniFile.Create ('c:\Fichero.ini') do
  try
    writeInteger (clave, cadena, valor);
  finally
    free;
  end;
end;

Espero de su ayuda, Gracias.

[[escafandra]]

Código Delphi [-]
function GetWindowText(Handle: THANDLE): AnsiString;
var
  Buffer: array [0..255] of AnsiCHAR;
begin
  SendMessage(Handle, WM_GETTEXT, 255, Cardinal(@Buffer[0]));
  Result:= Buffer;
end;

Saludos.

[Dark_Code]

Empezado por escafandra

Código Delphi [-]
function GetWindowText(Handle: THANDLE): AnsiString;
var
  Buffer: array [0..255] of AnsiCHAR;
begin
  SendMessage(Handle, WM_GETTEXT, 255, Cardinal(@Buffer[0]));
  Result:= Buffer;
end;

Saludos.

En este caso como usaría la función ?, como haria para que me lea el edit de mi otro form ?

if hkexample= '1' then
        Pdword(Examen)^:= 456789456;
      end;

En ves de este valor "456789456" quiero que me lea el valor que agrego en mi edit que esta en mi form.

[[escafandra]]

Empezado por Dark_Code

En este caso como usaría la función ?, como haria para que me lea el edit de mi otro form ?

Pues depende si ambos formularios son o no se tu aplicación. Si lo son, no es ni cesarario el código que expongo. En caso contrario debes conocer el handle de la ventana cuyo texto quieres leer. ¿Ese Edit es de un programa escrito en Delphi? ¿Como lo distingues? ¿Te sirve encontrarlo con un click de ratón? ¿Que funcionalidad precisas?.
En fin, tu sabes las respuestas y lo que quieres hacer.

Saludos

[Dark_Code]

Empezado por escafandra

Pues depende si ambos formularios son o no se tu aplicación. Si lo son, no es ni cesarario el código que expongo. En caso contrario debes conocer el handle de la ventana cuyo texto quieres leer. ¿Ese Edit es de un programa escrito en Delphi? ¿Como lo distingues? ¿Te sirve encontrarlo con un click de ratón? ¿Que funcionalidad precisas?.
En fin, tu sabes las respuestas y lo que quieres hacer.

Saludos

Pueden revisar mi source y hacerlo como deseo.

https://www.sendspace.com/file/evlja6

Disculpen a todos en General por subir el archivo por este medio, solo que no tengo el rango suficiente para subir archivos en este Club.

Gracias a todos por su comprensión

[[escafandra]]

Una primera aproximación consistiría en usar archivos de memoria compartida y un hilo en tu dll que los lea continuamente. Más sofisticado sería los mensajes entre threads con PostThreadMessage o la inyección directa cosa que no está en este momento a tu alcance.

Vamos a ver un ejemplo sencillo compartiendo memoria:

Lo siguiente es una clase para facilitar compartir memoria entre procesos:

Código Delphi [-]
unit SharedMemory;

interface

uses
  Windows;


type
  TModos = (mServer, mClient);

  TSharedMemory = class
  private
    Modo: TModos;
    hMap: THANDLE;       //Server
    DataMap: THANDLE;    //Client
    Name: array [0..MAX_PATH] of char;

  public
    Buffer: Pointer;
    constructor Create(MappName: PCHAR; SizeData: DWORD = 0);
    destructor  Destroy; override;
  end;

implementation

procedure MessageError(Title: PCHAR);
var
   pBuffer: pointer;
begin
   FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_ALLOCATE_BUFFER, nil,
   GetLastError, 0, @pBuffer, 0, nil );
   MessageBox(0, pBuffer, Title, MB_OK);
   LocalFree(Cardinal(pBuffer));
end;


constructor TSharedMemory.Create(MappName: PCHAR; SizeData: DWORD);
begin
  lstrcpy(@Name[0], PCHAR(MappName));
  if SizeData <> 0 then
  begin
    Modo:= mServer;
    hMap:= CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, SizeData, Name);

    // Si el fichero de memoria compartida ya existe, lo cierro.
    if (hMap <> 0) and (GetLastError = ERROR_ALREADY_EXISTS) then
    begin
      CloseHandle(hMap);
      hMap:= 0;
    end;
  end
  else
    Modo:= mClient;

  // Inicializa
  Buffer:= nil;
  DataMap:= 0;

  DataMap:= OpenFileMapping(FILE_MAP_ALL_ACCESS, false, Name);
  if DataMap <> 0 then
    Buffer:= MapViewOfFile(DataMap, FILE_MAP_ALL_ACCESS, 0, 0, 0)
  else
    MessageError('ERROR');

end;

destructor TSharedMemory.Destroy;
begin
  if Buffer <> nil then
    UnmapViewOfFile(Buffer);

  CloseHandle(DataMap);

  if (hMap <> 0) and (Modo = mServer) then
    CloseHandle(hMap);
end;


end.

Ahora el código de tu dll:

Código Delphi [-]
library Project1;


uses
  SysUtils,
  Windows,
  Classes,
  Unit2 in 'Unit2.pas',
  SharedMemory in 'SharedMemory.pas';

{$R *.res}
var
  AtProcessobymr: THandle;
  hId:Cardinal;

  Memory: TSharedMemory;


procedure TrainerFarius;
begin
 while(true) do
 begin
   Sleep(100);
   PDWORD($A04569)^:= PDWORD(Memory.Buffer)^;
 end;
end;

begin
  Memory:= TSharedMemory.Create('_Mi_Memoria_', sizeof(Pointer));
  // Creamos un hilo para la ejecución de TrainerFarius
  CreateThread(nil, 0, @TrainerFarius, nil, 0, PDWORD(0)^);
end.

Y el formulario que envía el dato compartido:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,INIFiles,Unit2, SharedMemory, TLHelp32;

type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    lbl1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    Memory: TSharedMemory;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
var
  Key:Tinifile;
begin
  Memory:= TSharedMemory.Create('_Mi_Memoria_', sizeof(DWORD));
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  Val: DWORD;
begin
  Val:= StrToInt(Edt1.Text);
  CopyMemory(Memory.Buffer, @Val, sizeof(DWORD));
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Memory.Free;
end;

end.

El ejemplo es un esbozo pero es funcional.
Ahora vienes las preguntas del millón ¿Donde quieres inyectar esa dll? ¿Sabes hacerlo?


Saludos.