uutlCommandLine: new function utlUsageProgramName

uutlCommandLine.pas

@@ -5,7 +5,7 @@ unit uutlCommandLine;
 interface
 
 uses
-  getopts;
+  SysUtils, getopts;
 
 { Forward definitions so getopts doesn't have to be used }
 type
@@ -32,6 +32,9 @@ type
 *)
 function utlHandleAllOptions(ShortOpts : String; LongOpts : POptions; Handler: TOptionHandler): integer;
 
+// Get program binary name suitable for Usage statements
+function utlUsageProgramName: string;
+
 implementation
 
 function utlHandleAllOptions(ShortOpts : String; LongOpts : POptions; Handler: TOptionHandler): integer;
@@ -51,5 +54,10 @@ begin
   Result:= getopts.OptInd;
 end;
 
+function utlUsageProgramName: string;
+begin
+  Result:= ChangeFileExt(ExtractFileName(ParamStr(0)), '');
+end;
+
 end.