Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
Retrieving information about the specified icon
Retrieving the priority class for the current process
Testing serial ports
Using the GetTempFileName
Winsock: retrieving information from a host database for a given host name
GDI+: custom Clock Control
Retrieving the command line for the VFP session
Running a regular FoxPro form while main VFP window is minimized
Using mailslots to send messages on the network
Winsock: retrieving the host information corresponding to a network address
Copying files as a transacted operation (Vista)
Winsock: changing the byte ordering
Enumerating Performance Counters
Enumerating the subkeys of a user-specific key
Using FillMemory
Using the CreateFile
Accessing LSA Policy object (Local Security Authority)
How to retrieve version information for the specified file
Using the DrawText function
Using the Semaphore object
Controlling master audio volume by sending WM_APPCOMMAND messages
Creating a device context for the specified printer
Disk in drive A:
Displaying printer-properties Property Sheet for the specified printer
Retrieving information about the specified icon

User rating: 0/10 (0 votes)
Rate this code sample:
  • ~
More code examples    Listed functions    Add comment     W32 Constants      Translate this page Printer friendly version of this code sample
DO declare

*| typedef struct _ICONINFO { 
*|   BOOL    fIcon;      0:4
*|   DWORD   xHotspot;   4:4
*|   DWORD   yHotspot;   8:4
*|   HBITMAP hbmMask;   12:4
*|   HBITMAP hbmColor;  16:4
*| } ICONINFO; total bytes = 20
#DEFINE ICONINFO_SIZE  20

LOCAL lcModule, lnIndex, hIcon, lcBuffer

lcModule = GetModuleName()
lnIndex = 0   && icon index

* retrieving an icon handle 
hIcon = ExtractAssociatedIcon(0, lcModule, @lnIndex)

lcBuffer = REPLICATE(Chr(0), ICONINFO_SIZE)
= GetIconInfo(hIcon, @lcBuffer)

? "Module name:", lcModule
? "Icon handle:", hIcon
?
? "*** Icon info"
? "Icon=1, Cursor=0:", buf2dword(SUBSTR(lcBuffer,1,4))
? "X hotspot:", buf2dword(SUBSTR(lcBuffer,5,4))
? "Y hotspot:", buf2dword(SUBSTR(lcBuffer,9,4))
? "Bitmask Bitmap:", buf2dword(SUBSTR(lcBuffer,13,4))
? "Color Bitmap:", buf2dword(SUBSTR(lcBuffer,17,4))

= DestroyIcon(hIcon)
* end of main

FUNCTION GetModuleName
#DEFINE BUF_SIZE 250
    LOCAL lcFilename, lnLen
    lcFilename = SPACE(BUF_SIZE)
    lnLen = GetModuleFileName(0, @lcFilename, BUF_SIZE)
RETURN  Left(lcFilename, lnLen)

FUNCTION buf2dword(cBuffer)
RETURN Asc(SUBSTR(cBuffer, 1,1)) + ;
    BitLShift(Asc(SUBSTR(cBuffer, 2,1)),  8) +;
    BitLShift(Asc(SUBSTR(cBuffer, 3,1)), 16) +;
    BitLShift(Asc(SUBSTR(cBuffer, 4,1)), 24)

PROCEDURE declare
    DECLARE SHORT DestroyIcon IN user32 INTEGER hIcon

    DECLARE INTEGER GetModuleFileName IN kernel32;
        INTEGER hModule, STRING @lpFilename, INTEGER nSize

    DECLARE INTEGER ExtractAssociatedIcon IN shell32;
        INTEGER hInst, STRING lpIconPath, INTEGER @lpiIcon

    DECLARE INTEGER GetIconInfo IN user32;
        INTEGER hIcon, STRING @piconinfo



User rating: 0/10 (0 votes)
Rate this code sample:
  • ~
1666 bytes  
Created: 2001-12-07 19:46:30  
Modified: 2007-05-02 06:21:35  
Visits in 7 days: 156  
Listed functions:
DestroyIcon
ExtractAssociatedIcon
GetIconInfo
GetModuleFileName
Printer friendly API declarations
My comment:
First this code retrieves the handle to the icon (index=0) for the VFP executable module. Then it uses the GetIconInfo function to obtain some of this icon`s properties.
Word Index links for this example:
Translate this page:
  Spanish    Portuguese    German    French    Italian  
FreeTranslation.com offers instant, free translations of text or web pages.
User Contributed Notes:
There are no notes on this subject.


Copyright 2001-2017 News2News, Inc. Before reproducing or distributing any data from this site please ask for an approval from its owner. Unless otherwise specified, this page is for your personal and non-commercial use. The information on this page is presented AS IS, meaning that you may use it at your own risk. Microsoft Visual FoxPro and Windows are trade marks of Microsoft Corp. All other trademarks are the property of their respective owners. 

Privacy policy
Credits: PHP (4.4.9), an HTML-embedded scripting language, MySQL (5.6.38), the Open Source standard SQL database, AceHTML Freeware Version 4, freeware HTML Editor of choice.   Hosted by Korax Online Inc.
Last Topics Visited (23.22.136.56)
16 sec.Function: 'GetSystemDirectory'
Function group: 'System Information'
29 sec.Function: 'mmioRead'
Function group: 'Windows Multimedia'
44 sec.Function: 'CeGetTempPath'
Function group: 'Remote Application Programming (RAPI)'
58 sec.Function: 'mmioSeek'
Function group: 'Windows Multimedia'
1.2 min.Function: 'PlaySound'
Function group: 'Windows Multimedia'
1.45 min.Links
1.68 min.Function: 'NetFileGetInfo'
Function group: 'Network Management'
1.92 min.Function: 'midiOutShortMsg'
Function group: 'Windows Multimedia'
2.15 min.Gallery
Page 11
2.4 min.Gallery
Page 10
Google
Advertise here!