Windows API Headers III v. 1.07

[José Roca]

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.

[Rod Macia]

in AfxFile.inc
the "C:" is hard coded, should use bstrDrive
'

' ========================================================================================
' 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.

'

' ========================================================================================
' 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
' ========================================================================================
'

[Larry Chickola]

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.

https://forum.powerbasic.com/forum/jose-s-corner/discussion/810017-winapi_iii_107-zip-fails-to-download

[Patrice Terrier]

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)

[José Roca]

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

[Patrice Terrier]

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

[Steve Hutchesson]

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.

[Patrice Terrier]

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).

[James C Morgan]

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

[Kurt Kuzba]

Have a problem with tried difference browser

• WINAPI_III_107.zip (8.93 MB, 213 views

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.

[Frank Rogers]

Bumped into something else that had me scratching my head...

' ========================================================================================
' 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...

' ========================================================================================
' 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

[James C Morgan]

Have a problem with tried difference browser

• WINAPI_III_107.zip (8.93 MB, 213 views

[Theo Gottwald]

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.

[José Roca]

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

[Stuart McLachlan]

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:

[Brice Manuel]

if you got it, never mind, just delete the email.

[Brice Manuel]

sent to the address I have for you in my contacts

[Brice Manuel]

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

[Eric Pearson]

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

[Brice Manuel]

If you need the file, I can email it to you?