unit shwmsg;

interface
uses {$IFDEF MSWINDOWS}
     windows,
     {$ENDIF}
     {$IFDEF LINUX}
     QDialogs,
     {$ENDIF}
     sysutils;

procedure ShowMessage(const msg:string);
procedure ShowMessageFmt(const msg:string;const args: array of const);

implementation

procedure ShowMessage(const msg:string);
begin
{$IFDEF MSWINDOWS}
MessageBox(0,
    PChar(msg),
    'Message',
    MB_APPLMODAL OR MB_ICONINFORMATION OR MB_OK);
{$ENDIF}
{$IFDEF LINUX}
qdialogs.ShowMessage(msg);
{$ENDIF}
end;

procedure ShowMessageFmt(const msg:string;const args: array of const);
begin
showmessage(format(msg,args));
end;

end.