Cita:
Empezado por wolfran_hack
Me Lanza:
Código:
[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); 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, 0,
4000); Application.Terminate;
end;
end.
Saludos.