PureBoard

Code: Alles auswählen

;getfileversion per "Scripting.FileSystemObject"

Interface IFileSystem Extends IDispatch
  get_Drives(a)
  BuildPath(a,b,c)
  GetDriveName(a,b)
  GetParentFolderName(a,b)
  GetFileName(a,b)
  GetBaseName(a,b)
  GetExtensionName(a,b)
  GetAbsolutePathName(a,b)
  GetTempName(a)
  DriveExists(a,b)
  FileExists(a,b)
  FolderExists(a,b)
  GetDrive(a,b)
  GetFile(a,b)
  GetFolder(a,b)
  GetSpecialFolder(a,b)
  DeleteFile(a,b)
  DeleteFolder(a,b)
  MoveFile(a,b)
  MoveFolder(a,b)
  CopyFile(a,b,c)
  CopyFolder(a,b,c)
  CreateFolder(a,b)
  CreateTextFile(a,b,c,d)
  OpenTextFile(a,b,c,d,e)
EndInterface

Interface IFileSystem3 Extends IFileSystem
  GetStandardStream(a,b,c)
  GetFileVersion(a,b)
EndInterface

Procedure.s Uni2Ansi(*Unicode.l) 
size.l = WideCharToMultiByte_(#CP_ACP, 0, *Unicode, -1, #Null, #Null, #Null, #Null) 
ansi.s=Space(size) 
WideCharToMultiByte_(#CP_ACP, 0, *Unicode, -1, @ansi, size, #Null, #Null) 
ProcedureReturn ansi  
EndProcedure
         

CoInitialize_(0)
If CoCreateInstance_(?CLSID_FileSystemObject,0,1,?IID_IFileSystem3,@Object.IFileSystem3) = 0

file.s = "c:\windows\system32\user32.dll"

SHStrDup_(@file,@file_in_unicode_pointer) ;in unicode umwandeln

Object\GetFileVersion(file_in_unicode_pointer,@version_in_unicode_pointer)
Debug uni2ansi(version_in_unicode_pointer)
Object\Release()

EndIf
CoUninitialize_()

DataSection 
CLSID_FileSystemObject: 
Data.l $0D43FE01
Data.w $F093,$11CF
Data.b $89,$40,$00,$A0,$C9,$05,$42,$28
IID_IFileSystem3: 
Data.l $2A0B9D10
Data.w $4B87,$11d3
Data.b $A9,$7A,$00,$10,$4B,$36,$5C,$9F
EndDataSection

End

Code: Alles auswählen

OpenLibrary(1,"shlwapi.dll")
;SHStrDup_(@file,@file_in_unicode_pointer) ;in unicode umwandeln 
CallFunction (1, "SHStrDupA",@file,@file_in_unicode_pointer) 
CloseLibrary(1)