Ajout de la commande LOGNAME

LOGNAME.PAS

@@ -0,0 +1,32 @@
+{ @author: Sylvain Maltais ([email protected])
+  @created: 2022
+  @website(https://www.gladir.com/unix-0)
+  @abstract(Target: Turbo Pascal, Free Pascal)
+}
+
+Program LOGNAME;
+
+Uses DOS;
+
+Function StrToLower(S:String):String;
+Var
+ I:Byte;
+Begin
+ For I:=1 to Length(S)do Begin
+  If S[I] in['A'..'Z']Then S[I]:=Chr(Ord(S[I])+32);
+ End;
+ StrToLower:=S;
+End;
+
+BEGIN
+ If(ParamStr(1)='/?')or(ParamStr(1)='--help')or(ParamStr(1)='-h')or
+   (ParamStr(1)='/h')or(ParamStr(1)='/H')Then Begin
+  WriteLn('LOGNAME : Cette commande permet de demander le nom de connection.');
+  WriteLn;
+  WriteLn('Syntaxe : LOGNAME');
+ End
+  Else
+ Begin
+  WriteLn(StrToLower(GetEnv('USERNAME')));
+ End;
+END.