Announcement

Collapse
No announcement yet.

Windows API Headers III v. 1.07

Collapse
This is a sticky topic.
X
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • José Roca
    replied
    Yes. I changed it on February 26, 2017, according to the date of the file on my computer, but forget to report it here. Thanks for spotting it.

    Leave a comment:


  • Rod Macia
    replied
    in AfxFile.inc
    the "C:" is hard coded, should use bstrDrive
    '
    Code:
    ' ========================================================================================
    ' Returns the type of file system in use for the specified drive.
    ' Available return types include FAT, NTFS, and CDFS.
    ' ========================================================================================
    FUNCTION AfxGetDriveFileSystem (BYVAL bstrDrive AS WSTRING) AS WSTRING
    
       LOCAL fso AS IFileSystem
       LOCAL pDrive AS IDrive
    
       ' // Create an instance of the FileSystemObject
       fso = NEWCOM "Scripting.FileSystemObject"
       IF ISNOTHING(fso) THEN EXIT FUNCTION
       ' // Get a reference to the IDrive interface
       pDrive = fso.GetDrive("C:")
       ' // Return the file system type
       FUNCTION = pDrive.FileSystem
    
    END FUNCTION
    ' ========================================================================================
    '
    Should probably be.

    '
    Code:
    ' ========================================================================================
    ' Returns the type of file system in use for the specified drive.
    ' Available return types include FAT, NTFS, and CDFS.
    ' ========================================================================================
    FUNCTION AfxGetDriveFileSystem (BYVAL bstrDrive AS WSTRING) AS WSTRING
    
       LOCAL fso AS IFileSystem
       LOCAL pDrive AS IDrive
    
       ' // Create an instance of the FileSystemObject
       fso = NEWCOM "Scripting.FileSystemObject"
       IF ISNOTHING(fso) THEN EXIT FUNCTION
       ' // Get a reference to the IDrive interface
       pDrive = fso.GetDrive(bstrDrive)
       ' // Return the file system type
       FUNCTION = pDrive.FileSystem
    
    END FUNCTION
    ' ========================================================================================
    '

    Leave a comment:


  • Larry Chickola
    replied
    FYI the download link to Jose's API was broken for some time, but Adam Drake resolved the problem several months ago. It works now with all browsers as far as i can tell. Brief discussion here on the fixing of the broken link.

    I have tried several times to download the WINAPI_III_107.zip file, and it fails each time. It starts over about 5 times, then give "Failed - File incomplete". A small file with the extension ".crdownload" appears where i tired to download the file. Suggestions?

    Leave a comment:


  • Patrice Terrier
    replied
    If there is not a dll, then the only way would be to implement them using PB code
    Yes, but I wanted to let you know that strsafe is not a regular API (stricto sensus)

    Leave a comment:


  • José Roca
    replied
    If there is not a dll, then the only way would be to implement them using PB code.

    Leave a comment:


  • Patrice Terrier
    replied
    I am speaking of IMPORT "strsafe.dll", there is no such DLL, it is a CRT component.

    Leave a comment:


  • Steve Hutchesson
    replied
    I just tested the download link on Jose's site and it worked OK first time. I am using a Google clone, Slimjet 64 bit.

    Leave a comment:


  • Patrice Terrier
    replied
    Bonjour José

    While translating C++ code to PB I found a problem with the strsafe.inc, because there is no "strsafe.dll" (they use a static lib).

    Leave a comment:


  • James C Morgan
    replied
    my copy of your WINAPI_III_107 has lot more than stand API in PBWIN 1003
    GetProfilesDirectoryA
    UserEnv.inc on my computer this is in syswow64 is that correct
    not system32
    on my win 10 pro 64 system32 is where it all ways looks
    i add a path to syswow64 and it worked. is that correct?
    Thanks James C Morgan

    Leave a comment:


  • Kurt Kuzba
    replied
    Originally posted by James C Morgan View Post
    Have a problem with tried difference browser
    Not new.
    Try right clicking on the object in the download bar and selecting "retry" or "resume".
    I just tried it, and that got it working.

    Leave a comment:


  • Frank Rogers
    replied
    Bumped into something else that had me scratching my head...
    Code:
    ' ========================================================================================
    ' Converts a time stored in a QUAD into a string.
    ' ========================================================================================
    FUNCTION AfxQuadTimeToStr (BYVAL qTime AS QUAD) AS WSTRING
       IF qTime = 0 THEN EXIT FUNCTION
       LOCAL ST AS SYSTEMTIME, FT AS FILETIME, bstrDateSep AS WSTRING
       bstrDateSep = AfxGetLocaleDateSeparator
       FT.qDateTime = qTime
       FileTimeToSystemTime(FT, ST)
       FUNCTION = FORMAT$(ST.wDay,"00") & bstrDateSep & _
                  FORMAT$(ST.wMonth,"00") & bstrDateSep & _
                  FORMAT$(ST.wYear,"00")
    END FUNCTION
    probably should be...
    Code:
    ' ========================================================================================
    ' Converts a time stored in a QUAD into a string.
    ' ========================================================================================
    FUNCTION AfxQuadTimeToStr (BYVAL qTime AS QUAD) AS WSTRING
       IF qTime = 0 THEN EXIT FUNCTION
       LOCAL ST AS SYSTEMTIME, FT AS FILETIME, bstrTimeSep AS WSTRING
       bstrTimeSep = AfxGetLocaleTimeSeparator
       FT.qDateTime = qTime
       FileTimeToSystemTime(FT, ST)
       FUNCTION = FORMAT$(ST.wHour,"00") & bstrTimeSep & _
                  FORMAT$(ST.wMinute,"00") & bstrTimeSep & _
                  FORMAT$(ST.wSecond,"00")
    END FUNCTION
    This is in AfxTime.Inc

    Leave a comment:


  • James C Morgan
    replied
    Have a problem with tried difference browser

    Leave a comment:


  • Theo Gottwald
    replied
    I also got a "Failed Network error.". Then on the right side in "Brave" (Browser - similar to Chrome) there is a "Resume" Option used this and got the file.

    Leave a comment:


  • José Roca
    replied
    If there are problems for downloading, you can also download them from here:
    http://www.jose.it-berater.org/smffo...p?topic=5061.0

    Leave a comment:


  • Stuart McLachlan
    replied
    There's definitely something wrong with the download link. It seems to fail in most browsers initially, but if you do a "retry" it then works.

    e.g. In Firefox:

    Click image for larger version

Name:	Resume.jpg
Views:	709
Size:	11.3 KB
ID:	794384

    Leave a comment:


  • Brice Manuel
    replied
    if you got it, never mind, just delete the email.

    Leave a comment:


  • Brice Manuel
    replied
    sent to the address I have for you in my contacts

    Leave a comment:


  • Brice Manuel
    replied
    Gimme a sec, off to email it (emailing it as a RAR as it is 1mb smaller)

    Leave a comment:


  • Eric Pearson
    replied
    Thanks, Opera and Firefox also failed... but Edge gave me an error message but then it let me "resume" and the download worked fine.

    Leave a comment:


  • Brice Manuel
    replied
    If you need the file, I can email it to you?

    Leave a comment:

Working...
X