QB64Shell Don't run

[a740g]

Change line 806 in qb64shell.inc from

Declare Library

TO

Declare CustomType Library

So, in the end it should look like:

Code: (Select All)

Declare CustomType Library
    Function GetFileAttributes& (f$)
    Function SetFileAttributes& (f$, Byval a&)
    Function GetDriveType& (d$)
    Function GetShortPathName& (InP$, OutP$, Byval length&)
    Function GetModuleFileNameA (ByVal Module As Long, FileName As String, Byval nSize As Long)

    Function CreateFile& (filename$, Byval access&, Byval sharing&, Byval sec_attr%&, Byval create&, Byval flags&, Byval template%&)
    Function MoveFile (f$, g$)
    Function CopyFile (f$, g$, Byval f%)
    Function EncryptFile (f$)
    Function DecryptFile (f$, Byval f&)
    Function EncryptFileA (f$)
    Function DecryptFileA (f$, Byval f&)
End Declare