Commandline MessageBox tool

1. program msgbox;
2. {$APPTYPE CONSOLE}
3. { MessageBox tool for batch files}
4. {$RESOURCE MSGBOXAPP.RES}
5. uses
6. SysUtils,
7. windows,
8. Classes;
9. function GetConsoleWindow:hwnd;stdcall;external 'kernel32.dll';
10. var params,iconcsv:tstringlist;
11. i,ret,mode,typ:integer;
12. msgparamset:msgboxparams;
13. osver:tosversioninfo;
14. contitle,text:array[0..1024]of char;
15. begin
16. typ:=0;
17. params:=tstringlist.Create;
18. zeromemory(@msgparamset,sizeof(msgboxparams));
19. msgparamset.cbSize:=sizeof(msgparamset);
20. for i:=1to paramcount do begin
21. params.Add(Paramstr(i));
22. if StrScan(Pchar(paramstr(i)),'=')=nil then begin
23. writeln('Bad parameter option or unquoted text:',paramstr(i));
24. exitprocess(9);
25. end;
26. end;
27. mode:= strtointdef(params.values['mode'],0);
28. if(paramcount=0)or(params.Values['text']='') then begin
29. writeln('Usage: ',extractfilename(paramstr(0)),
30. ' text= <i class="fas fa-"></i> [button=] [mode=]');
31. writeln('text= The message to show in the messagebox');
32. writeln('caption= MessageBox window title');
33. writeln('icon= Specifies the icon to use:');
34. writeln(' 0=No icon(default)');
35. writeln(' ',mb_iconinformation,'=Information icon');
36. writeln(' ',mb_iconwarning,'=Warning icon');
37. writeln(' ',mb_iconerror,'=Error icon');
38. writeln(' ',mb_iconquestion,'=Question Mark');
39. writeln('button= Button type number');
40. writeln(' 0=ok(default)');
41. writeln(' ',mb_yesno,'=Yes/no');
42. writeln(' ',mb_yesnocancel,'=Yes/no/cancel');
43. writeln(' ',mb_okcancel,'=Ok/cancel');
44. writeln(' ',MB_ABORTRETRYIGNORE,'=abort/retry/ignore');
45. writeln(' ',MB_RETRYCANCEL,'=Retry/cancel');
46. writeln('mode= Set optional modes, can be a combination of the following numbers:');
47. writeln(' 1=Hide console window until finished');
48. writeln(' 2=Don'#39't set console window as parent of the messagebox');
49. writeln(' 4=Show message box to the current active desktop, even when no one is logged in.');
50. writeln(' 8=the icon= specifies an icon filename and resource name seperated by a comma');
51. writeln(' 16=the icon resource is an integer resource, only used with mode 8');
52. writeln;
53. writeln('ErrorLevel codes:');
54. writeln(IDABORT,' Abort button was selected.');
55. writeln(IDCANCEL,' Cancel button was selected.');
56. writeln(IDIGNORE,' Ignore button was selected.');
57. writeln(IDNO,' No button was selected.');
58. writeln(IDOK,' OK button was selected.');
59. writeln(IDRETRY,' Retry button was selected.');
60. writeln(IDYES,' Yes button was selected.');
61. writeln(0,' Out of memory error');
62. writeln(8,' text= wasn'#39't provided error');
63. writeln(9,' Parameter syntax error');
64. if paramcount=0then begin writeln('Press enter to return...');readln;end;
65. exitprocess(8);
66. end;
67. if mode and 8=8then begin
68. iconcsv:=tstringlist.Create;
69. iconcsv.CommaText:=params.Values['icon'];
70. typ:=typ or MB_USERICON;
71. msgparamset.hInstance:=loadlibrary(pchar(iconcsv[0]));
72. if mode and 16=0then msgparamset.lpszIcon :=pchar(iconcsv[1]) else
73. msgparamset.lpszIcon:=makeintresource(strtointdef(iconcsv[1],1));
74. iconcsv.Free;
75. end;
76. if mode and 4=4then
77. begin
78. zeromemory(@osver,sizeof(osver));
79. osver.dwOSVersionInfoSize:=sizeof(osver);
80. getversionex(osver);
81. if osver.dwMajorVersion>3 then typ:=typ or MB_SERVICE_NOTIFICATION else
82. typ:=typ or MB_SERVICE_NOTIFICATION_NT3X;//not sure if this tool is compatible with nt3.5
83. //but just include it just incase.
84. end;
85. getconsoletitle(contitle,1025);
86. if params.Values['caption']=''then params.Values['caption']:=strpas(contitle);
87. if mode and 6=0 then msgparamset.hwndOwner:=getconsolewindow;
88. if mode and 1=1then showwindow(getconsolewindow,sw_hide);
89. msgparamset.lpszText:=strpcopy(text,params.values['text']);
90. msgparamset.lpszCaption:=strpcopy(contitle,params.values['caption']);
91. msgparamset.dwStyle:=msgparamset.dwStyle or typ or strtointdef(
92. params.values['icon'],0)or strtointdef(params.values['button'],0);
93. ret:=integer(messageboxindirect(msgparamset));
94. if mode and 1=1then showwindow(getconsolewindow,sw_show);
95. if ret=0 then writeln('MessageBox Failed');
96. exitprocess(ret);
97. end.

program msgbox;
{$APPTYPE CONSOLE}
{ MessageBox tool for batch files}
{$RESOURCE MSGBOXAPP.RES}
uses
  SysUtils,
  windows,
  Classes;
function GetConsoleWindow:hwnd;stdcall;external 'kernel32.dll';
var params,iconcsv:tstringlist;
i,ret,mode,typ:integer;
msgparamset:msgboxparams;
osver:tosversioninfo;
contitle,text:array[0..1024]of char;
begin
typ:=0;
params:=tstringlist.Create;
zeromemory(@msgparamset,sizeof(msgboxparams));
msgparamset.cbSize:=sizeof(msgparamset);
for i:=1to paramcount do begin
 params.Add(Paramstr(i));
 if StrScan(Pchar(paramstr(i)),'=')=nil then begin
 writeln('Bad parameter option or unquoted text:',paramstr(i));
 exitprocess(9);
 end;
 end;
mode:= strtointdef(params.values['mode'],0);
 if(paramcount=0)or(params.Values['text']='') then begin
writeln('Usage: ',extractfilename(paramstr(0)),
' text=  <i class="fas fa-"></i> [button=] [mode=]');
writeln('text=          The message to show in the messagebox');
writeln('caption=       MessageBox window title');
writeln('icon=          Specifies the icon to use:');
writeln('               0=No icon(default)');
writeln('               ',mb_iconinformation,'=Information icon');
writeln('               ',mb_iconwarning,'=Warning icon');
writeln('               ',mb_iconerror,'=Error icon');
writeln('               ',mb_iconquestion,'=Question Mark');
writeln('button=        Button type number');
writeln('               0=ok(default)');
writeln('               ',mb_yesno,'=Yes/no');
writeln('               ',mb_yesnocancel,'=Yes/no/cancel');
writeln('               ',mb_okcancel,'=Ok/cancel');
writeln('               ',MB_ABORTRETRYIGNORE,'=abort/retry/ignore');
writeln('               ',MB_RETRYCANCEL,'=Retry/cancel');
writeln('mode=          Set optional modes, can be a combination of the following numbers:');
writeln('               1=Hide console window until finished');
writeln('               2=Don'#39't set console window as parent of the messagebox');
writeln('               4=Show message box to the current active desktop, even when no one is logged in.');
writeln('               8=the icon= specifies an icon filename and resource name seperated by a comma');
writeln('               16=the icon resource is an integer resource, only used with mode 8');
writeln;
writeln('ErrorLevel codes:');
writeln(IDABORT,'	Abort button was selected.');
writeln(IDCANCEL,'	Cancel button was selected.');
writeln(IDIGNORE,'	Ignore button was selected.');
writeln(IDNO,'	No button was selected.');
writeln(IDOK,'	OK button was selected.');
writeln(IDRETRY,'	Retry button was selected.');
writeln(IDYES,'	Yes button was selected.');
writeln(0,'     Out of memory error');
writeln(8,'     text= wasn'#39't provided error');
writeln(9,'     Parameter syntax error');
if paramcount=0then begin writeln('Press enter to return...');readln;end;
exitprocess(8);
end;
if mode and 8=8then begin
iconcsv:=tstringlist.Create;
iconcsv.CommaText:=params.Values['icon'];
typ:=typ or MB_USERICON;
msgparamset.hInstance:=loadlibrary(pchar(iconcsv[0]));
if mode and 16=0then msgparamset.lpszIcon :=pchar(iconcsv[1]) else
msgparamset.lpszIcon:=makeintresource(strtointdef(iconcsv[1],1));
iconcsv.Free;
end;
if mode and 4=4then
begin
zeromemory(@osver,sizeof(osver));
osver.dwOSVersionInfoSize:=sizeof(osver);
getversionex(osver);
if osver.dwMajorVersion>3 then typ:=typ or MB_SERVICE_NOTIFICATION else
typ:=typ or MB_SERVICE_NOTIFICATION_NT3X;//not sure if this tool is compatible with nt3.5
                                   //but just include it just incase.
end;
getconsoletitle(contitle,1025);
if params.Values['caption']=''then params.Values['caption']:=strpas(contitle);
if mode and 6=0 then msgparamset.hwndOwner:=getconsolewindow;
if mode and 1=1then showwindow(getconsolewindow,sw_hide);
msgparamset.lpszText:=strpcopy(text,params.values['text']);
msgparamset.lpszCaption:=strpcopy(contitle,params.values['caption']);
msgparamset.dwStyle:=msgparamset.dwStyle or typ or strtointdef(
params.values['icon'],0)or strtointdef(params.values['button'],0);
ret:=integer(messageboxindirect(msgparamset));
if mode and 1=1then showwindow(getconsolewindow,sw_show);
if ret=0 then writeln('MessageBox Failed');
exitprocess(ret);
end.