Hier ist er aber besser aufzufinden.
Code: Alles auswählen
IncludeFile "FileInfo[Win].pbi"
Define File$ = "C:\WINDOWS\system32\notepad.exe"
Debug "FileComments: " + FileInfo::GetFileComments(File$)
Debug "FileCompanyName: " + FileInfo::GetFileCompanyName(File$)
Debug "FileDescription: " + FileInfo::GetFileDescription(File$)
Debug "FileInternalName: " + FileInfo::GetFileInternalName(File$)
Debug "FileLegalCopyright: " + FileInfo::GetFileLegalCopyright(File$)
Debug "FileLegalTrademarks: " + FileInfo::GetFileLegalTrademarks(File$)
Debug "FileOriginalFilename: " + FileInfo::GetFileOriginalFilename(File$)
Debug "FileVersion: " + FileInfo::GetFileVersion(File$)
Debug "FixedFileType: " + FileInfo::GetFixedFileType(File$)
Debug "FixedFileVersion: " + FileInfo::GetFixedFileVersion(File$)
Debug "FixedProductVersion: " + FileInfo::GetFixedProductVersion(File$)
Debug "ProductName: " + FileInfo::GetProductName(File$)
Debug "ProductVersion: " + FileInfo::GetProductVersion(File$)
Debug "FileBitSystem: " + FileInfo::GetFileBitSystem(File$)
Define Image = FileInfo::GetIcon(File$, 32)
If Image
If OpenWindow(0, #PB_Ignore, #PB_Ignore, 100, 100, "Icon Extraction", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ImageGadget(0, 0, 0, WindowWidth(0), WindowHeight(0), ImageID(Image))
While WaitWindowEvent() <> #PB_Event_CloseWindow : Wend
EndIf
Else
Debug "GetIcon: Error"
EndIf
Pfad: File/FileInfo[Win].pbi