[fpc-pascal] Will the size of an executable depend on the uses clause

[Travis Siegel]

Heh, how very cool.  I wasn't aware powershell could do such things.  
All kinds of new things learned in this thread.  Thanks for that.


On 6/17/2021 5:08 AM, Jean SUZINEAU via fpc-pascal wrote:
> 10 kb of Powerbasic ... you're cheating, it's pascal here ;-)
> You can do this with just 1kb of PowerShell ...
> ( may be Pascal script could even be shorter ...)
>
> File uptime.ps1 :
>
> $MethodDefinition = @"
> [DllImport("kernel32")] public extern static UInt64 GetTickCount64();
> "@
>
> $Kernel32 = Add-Type -MemberDefinition $MethodDefinition -Name 
> 'Kernel32' -Namespace 'Win32' -PassThru
>
> #milliseconds
> $tc= $Kernel32::GetTickCount64()
>
> # seconds
> $t= ($tc-$tc % 1000)/1000
> $s= $t%60
>
> # minutes
> $tm=($t-$s)/60
> $m= $tm % 60
>
> #hours
> $th=($tm-$m)/60
> $h=$th % 24
>
> #days
> $d=($th-$h)/24
>
> $Result="{0:d2}:{1:d2}:{2:d2}" -f $h,$m,$s
> if ($d -ne 0)
>   {
>   $Result= "{0} {1}" -f $d,$Result
>   }
> Write-Host $Result
>
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal