Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Set of QB64 utilities.
#11
So, Clippy has become a missing link? Smile
Reply
#12
The most recent QB64 utilities project PD 04/25/2025.

Code: (Select All)
Version vD.0 r1.0a PD 04/25/2025.
  Adds custom command$ function to avoid filelist when * specified.
  Comments out some calls to SetCurrentDirectory.

This QB64 utilities version contains a new subroutine to get the command line posted here:

Code: (Select All)
Function Read.Command$
   Declare Library
      Function GetCommandLineA%& ()
   End Declare
   Dim m As _MEM, ms As String * 1000
   a%& = GetCommandLineA
   m = _Mem(a%&, Len(ms))
   ms = _MemGet(m, m.OFFSET, String * 1000)
   If a%& Then
      cmd$ = ms
      eol = InStr(cmd$, Chr$(0))
      If eol Then
         cmd$ = Left$(cmd$, eol - 1)
      End If
      ' parse off program name.
      eol = InStr(2, cmd$, Chr$(34)) + 1
      cmd$ = Mid$(cmd$, eol)
   End If
   _MemFree m
   Read.Command$ = cmd$
End Function

Where reading commandline avoids concatanted * filelist.


Attached Files
.zip   QB64UTLD.ZIP (Size: 253.94 KB / Downloads: 4)
Reply




Users browsing this thread: 1 Guest(s)