[angvelem]

Сообщение от unity

во у мя когда открываеш delphi такой код по умолчанию:

Так, но это ничего не даст, эти процедуры никто не вызывает.

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
   procedure SimulateKeyDown(Key : byte); 
   procedure SimulateKeyUp(Key : byte); 
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SimulateKeyDown(Key : byte); 
begin 
 keybd_event(Key, 0, 0, 0); 
end; 

procedure TForm1.SimulateKeyUp(Key : byte); 
begin 
 keybd_event(Key, 0, KEYEVENTF_KEYUP, 0); 
end; 

end.