Windows API Headers III v. 1.07

[Brice Manuel]

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

[Brice Manuel]

sent to the address I have for you in my contacts

[Brice Manuel]

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

[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:

[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

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

[James C Morgan]

Have a problem with tried difference browser

• WINAPI_III_107.zip (8.93 MB, 213 views

[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

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

[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

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

[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]

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

[José Roca]

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

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

[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

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

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