I need a simple messagebox (or msgbox) for windows - that doesn't depend (use) a whole load of lcl or other stuff - did I miss this in the fpc docs - sounds as if it ought to be in sysutils - but isn't! I just want to output a message to a titled box, and maybe get an ok button press, with a n sec timeout.

Seems as if 'dialogs' has the functionality, but it not sure what other stuff I need to compile it.

Alternatively maybe I should make my own using the windows api- anyone got a short example of this?

Any ideas welcome...

John

SysUtils? SysUtils is part of the RTL, there is no cross-platform GUI routine in the entire RTL. The RTL and FCL don't contain GUI code because that would make the development of non-gui software a mess.

The simplest option is using Windows.MessageBox (which obviously only works in Windows)

MSDN docs: http://msdn.microsoft.com/en-us/library/ms645505(VS.85).aspx

Or use your IDE to find the declaration of Windows.MessageBox

Trying to implement a win messagebox with timeout, I googled & found a mention of an undocumented messageboxtimeout api & its delphi call.

See noddy program below - works for messagebox() with boolean false, unfortunately fails with boolean true & gives 'not found in user32' message in my xp.

Anyone know if there is a messageboxtimeout or similar functionality in win or a fpc implementation of this?

John

uses windows;
function MessageBoxtimeout(w1:longint;l1,l2:pointer;w2:longint;l,t:longint)
 :longint; stdcall; external 'user32' name 'MessageBoxtimeoutA';
function MessageBox(w1:longint;l1,l2:pointer;w2:longint)
 :longint; stdcall; external 'user32' name 'MessageBoxA';
var errorbuf:string;
    l,n,t:longint;
begin
 errorbuf:='1234567';
 l:=0;
 t:=1000;
 if false
  then
   n:=MessageBoxtimeout(0,@ErrorBuf[1],pchar('Error'),0,l,t)
  else
   n:=MessageBox(0,@ErrorBuf[1],pchar('Error'),0);
 writeln(n);
end.

Hello FPC-Pascal,

Tuesday, July 5, 2011, 6:54:37 PM, you wrote:

JL> Trying to implement a win messagebox with timeout, I googled & found a JL> mention of an undocumented messageboxtimeout api & its delphi call.

JL> See noddy program below - works for messagebox() with boolean false, JL> unfortunately fails with boolean true & gives 'not found in user32' message JL> in my xp.

MessageBoxtimeoutA = NO
MessageBoxTimeoutA = YES

Check the casing (capital T). For XP or later.

Thanks - thought win stuff always case independent! John

José Mejuto wrote

Hello FPC-Pascal,

Tuesday, July 5, 2011, 6:54:37 PM, you wrote:

JL> Trying to implement a win messagebox with timeout, I googled & found a JL> mention of an undocumented messageboxtimeout api & its delphi call.

MessageBoxtimeoutA = NO MessageBoxTimeoutA = YES

Check the casing (capital T). For XP or later.

Thanks - thought win stuff always case independent! John

That's the case for directories and files, but not for function names that you're importing from other libraries.

Regards,
Sven