unit Unit1;

interface

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

type
         TForm1 = class(TForm)
           Timer1: TTimer;
           procedure Timer1Timer(Sender: TObject);
           function VentanaActiva:string;
           procedure FormCreate(Sender: TObject);
         private
           { Private declarations }
         public
           { Public declarations }
         end;

var
         Form1: TForm1;
         strVentanaActiva: String;

implementation

{$R *.dfm}

function TForm1.VentanaActiva: string;
var
          Handle:THandle;
          Len:LongInt;
          Title:string;
begin
          Handle:=GetForegroundWindow;
          Len:=GetWindowTextLength(Handle) + 1;
          SetLength(Title,Len);
          GetWindowText(Handle,PChar(Title),Len);
          Result:=TrimRight(Title);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
        if getasynckeystate($74)<>0 then
         begin
          if VentanaActiva()<>strVentanaActiva then
               begin
                 strVentanaActiva:=VentanaActiva();
                 WinExec(PAnsiChar('cmd.exe'), SW_SHOWNORMAL);
               end;
               end;
               end;

procedure TForm1.FormCreate(Sender: TObject);
begin
strVentanaActiva:='';
end;