[ecfisa]

Empezado por wolfran_hack

Me Lanza:

[Error] SmsSender.pas(127): Incompatible types: 'HWND' and 'String'
[Error] SmsSender.pas(127): Incompatible types: 'Integer' and 'PAnsiChar'
[Error] SmsSender.pas(127): Incompatible types: 'Integer' and 'PAnsiChar'
[Error] SmsSender.pas(128): Missing operator or semicolon

Código Delphi [-]
127 MessageBoxTimeout(Application.Handle,'La aplicación se cerrará en unos segundos...','',MB_SYSTEMMODAL or MB_TOPMOST or MB_ICONINFORMATION, 0, 4000); // 4000 = 4 seg
128 Application.Terminate;

Hola wolfran_hack.

Si copiaste y pegaste exáctamente el código que te indiqué en el mensaje #2 no tendrías por que recibir error alguno.
De todos modos para no seguir dandole vueltas al asunto, el código completo del ejemplo:

Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation  {$R *.dfm}

function MessageBoxTimeOut(hWnd: HWND; lpText: PChar; lpCaption: PChar; uType: UINT;
      wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall; 
      external user32 name 'MessageBoxTimeoutA';

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageBoxTimeout(Application.Handle,
                    'La aplicación se cerrará en unos segundos...','',
                    MB_SYSTEMMODAL + MB_TOPMOST + MB_ICONINFORMATION,  // (+ = or)
                    0,
                    4000); // 4000 = 4 seg
   Application.Terminate;
end;

end.

Saludos.