Search  
Friday, February 10, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.
SearchForum Home
  Visual FoxPro  Win32 API  citire rezoluti...
 citire rezolutie ecran
 
 10/23/2007 11:58:23 AM
User is offlineids4ids
22 posts


citire rezolutie ecran
 (N/A)

cum se poate citi rezolutia ecranului ?

 
 10/23/2007 12:15:51 PM
User is offlineanonymous
0 posts


Re: citire rezolutie ecran
 (N/A)
    Functia SYSMETRIC()

SYSMETRIC(1) - Latimea
SYSMETRIC(2) - Inaltimea
 1/19/2009 12:09:47 PM
User is offlinevicos
137 posts
5th


Re: citire rezolutie ecran
 (N/A)
PROCEDURE windows_desktop_height
* Returns the height of the physical screen, taking account of the taskbar, if visible.
LOCAL lcbuffer, lcdword
DECLARE INTEGER SystemParametersInfo IN Win32Api ;
INTEGER uiAction,;
INTEGER uiParam,;
STRING @pvParam,;
INTEGER fWinIni

lcbuffer = SPACE(16)
systemparametersinfo(48, 0, @lcbuffer, 0)
lcdword = SUBSTR(lcbuffer, 13, 4)
&& or take bytes 9-12 for the screen width

*WAIT WINDOW ASC(SUBSTR(lcdword, 1,1)) + ;
BITLSHIFT(ASC(SUBSTR(lcdword, 2,1)), 8) +;
BITLSHIFT(ASC(SUBSTR(lcdword, 3,1)), 16) +;
BITLSHIFT(ASC(SUBSTR(lcdword, 4,1)), 24)

RETURN ASC(SUBSTR(lcdword, 1,1)) + ;
BITLSHIFT(ASC(SUBSTR(lcdword, 2,1)), 8) +;
BITLSHIFT(ASC(SUBSTR(lcdword, 3,1)), 16) +;
BITLSHIFT(ASC(SUBSTR(lcdword, 4,1)), 24)

PROCEDURE windows_desktop_width
* Returns the height of the physical screen, taking account of the taskbar, if visible.
LOCAL lcbuffer, lcdword
DECLARE INTEGER SystemParametersInfo IN Win32Api ;
INTEGER uiAction,;
INTEGER uiParam,;
STRING @pvParam,;
INTEGER fWinIni

lcbuffer = SPACE(16)
systemparametersinfo(48, 0, @lcbuffer, 0)
lcdword = SUBSTR(lcbuffer, 9, 12)
*WAIT WINDOW ASC(SUBSTR(lcdword, 1,1)) + ;
BITLSHIFT(ASC(SUBSTR(lcdword, 2,1)), 8) +;
BITLSHIFT(ASC(SUBSTR(lcdword, 3,1)), 16) +;
BITLSHIFT(ASC(SUBSTR(lcdword, 4,1)), 24)

RETURN ASC(SUBSTR(lcdword, 1,1)) + ;
BITLSHIFT(ASC(SUBSTR(lcdword, 2,1)), 8) +;
BITLSHIFT(ASC(SUBSTR(lcdword, 3,1)), 16) +;
BITLSHIFT(ASC(SUBSTR(lcdword, 4,1)), 24)
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Win32 API  citire rezoluti...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement