![](https://img-blog.csdnimg.cn/20201014180756754.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
WIN API 函数应用
lygcw9602
这个作者很懒,什么都没留下…
展开
-
适应屏幕分辨率
IF SYSMETRIC(1)=1024 AND SYSMETRIC(2)=768 x=800 y=600 lcDevMode=replicate(chr(0),156) declare integer EnumDisplaySettings IN user32 integer,integer,string @ declare integer ChangeD转载 2015-01-31 14:39:41 · 643 阅读 · 0 评论 -
提取驱动器盘符
方法一Clear Declare Long GetDriveType In "kernel32" String nDrive Local lnI, DrvName, DrvType For lnI = 1 To 25 DrvName = Chr(lnI + 65) + ":" DrvType = GetDriveType(DrvNam转载 2015-02-14 21:08:13 · 572 阅读 · 0 评论