Enter como TAB no Delphi Firemonkey

Usar os seguintes comandos no onKeyDown do formulario
if Key = vkReturn then
 begin
 Key := vkTab;
 KeyDown(Key, KeyChar, Shift);
 end;

Instanciar Formulário Delphi

https://marcosalles.wordpress.com/2013/09/14/classe-generica-para-instanciar-dinamicamente/

Rotina para obter versão do Firebird


GBAK -Z -Y VERSAO.TXT

No arquivo VERSAO.TXT vai mostrar a versão do FIREBIRD

WINEXE não funciona DELPHI XE

O WinExec não funciona no DelphiXe, acredito que seja por causa do unicode.

A solucao encontrada foi usar o ShellExecute da seguinte forma.


Interface
    uses ShellApi...;





Procedure Executar;
Var
NomeArquivoExecutar : String;
begin
 NomeArquivoExecutar := 'CALC.EXE';
  ShellExecute(Application.Handle, 'open', pchar(NomeArquivoExecutar), nil, nil, SW_HIDE);


end;