[每日一码] 实现磁盘驱动器相关（序列号等）信息返回给LISP使用

admin

1. #include "StdAfx.h"
2. #include "VolumeManagement.h"
4. #pragma region //DriveTypeFlags
6. struct // DriveType
7. {
8.   UINT type;                        // return code from GetDriveType
9.   LPCTSTR name;                // ascii name
10. }
12. DriveTypeFlags [] =
13. {
14.   { DRIVE采用UNKNOWN,     采用T("Unknown") },
15.   { DRIVE采用NO采用ROOT采用DIR, 采用T("Invalid path") },
16.   { DRIVE采用REMOVABLE,   采用T("Removable") },
17.   { DRIVE采用FIXED,       采用T("Fixed") },
18.   { DRIVE采用REMOTE,      采用T("Network drive") },
19.   { DRIVE采用CDROM,       采用T("CD-ROM") },
20.   { DRIVE采用RAMDISK,     采用T("RAM disk") },
21.   { 0, NULL}
22. };
24. #pragma endregion
26. #pragma region //driveserialno
27. //(crpdriveserialno "c")
28. int DriveSerialNo(void)
29. {
30.   //Declare string variables
31.   CString str;
32.   struct resbuf *pArgs =acedGetArgs ();
34.   if(pArgs == NULL)
35.     str = 采用T("C");
36.   else
37.   {
38.     if(pArgs->restype == RTSTR)
39.       str = pArgs->resval.rstring;
40.     else
41.       str = 采用T("C");
42.   }
43.   str.Truncate(1);
44.   str = str + 采用T(":\");
45.   DWORD VolumeSerialNumber = 0;
46.   GetVolumeInformation(str, NULL, 0, (DWORD *)&VolumeSerialNumber, NULL, NULL, NULL, 0 );
47.   if (VolumeSerialNumber != 0)
48.   {
49.     TCHAR Result[10] = {0};
50.     采用sntprintf(Result , sizeof(TCHAR)*10 , 采用T("%X") , VolumeSerialNumber );
51.     acedRetStr(Result);
52.   }
53.   else
54.     acedRetNil();
56.   return (RSRSLT) ;
57. }
58. #pragma endregion
60. #pragma region //filesystem
61. //(crpfilesystem "c")
62. int FileSystem(void)
63. {
64.   CString str;
65.   struct resbuf *pArgs =acedGetArgs () ;
66.   //get the resbuf from lisp, test validity
67.   if(pArgs == NULL)
68.     str = 采用T("C");
69.   else
70.   {
71.     if(pArgs->restype == RTSTR)
72.       str = pArgs->resval.rstring;
73.     else
74.       str = 采用T("C");
75.   }
76.   str.Truncate(1);
77.   str = str + 采用T(":\");
78.   TCHAR FileSystem[MAX采用PATH] = {0};
79.   GetVolumeInformation(str, NULL, 0, NULL, NULL, NULL, FileSystem, sizeof(TCHAR)*MAX采用PATH);
80.   if (采用tcsclen(FileSystem) != NULL)
81.     acedRetStr(FileSystem);
82.   else
83.     acedRetNil();
84.   return (RSRSLT) ;
85. }
86. #pragma endregion
88. #pragma region //drivetype
89. //(crpdrivetype "c")
90. int DriveType(void)
91. {
93.   //
94.   CString str;
95.   CString DriveType;
97.   //
98.   struct resbuf *rb = NULL;
100.   //
101.   struct resbuf *pArgs =acedGetArgs () ;
102.   if(pArgs == NULL)
103.     str = 采用T("C");
104.   else
105.   {
106.     if(pArgs->restype == RTSTR)
107.       str = pArgs->resval.rstring;
108.     else
109.       str = 采用T("C");
110.   };
111.   //
112.   str.Truncate(1);
113.   str += 采用T(":\");
114.   UINT uDriveType = GetDriveType(str);
116.   for (int i=0; DriveTypeFlags<i>.name; i++)
117.   {
118.     if (uDriveType == DriveTypeFlags<i>.type)
119.     {
120.       DriveType = DriveTypeFlags<i>.name;
121.       break;
122.     }
123.   }
125.   //
126.   if (!DriveType.IsEmpty())
127.     acedRetStr(DriveType);
128.   else
129.     acedRetNil();
130.   return (RSRSLT) ;
131. }
132. #pragma endregion
134. #pragma region //drives
135. //(crpdrives)
136. int Drives(void)
137. {
138.   struct resbuf* pRbRet = acutNewRb(RTT);
139.   struct resbuf* pRbTail;
140.   pRbTail = pRbRet;
142.   TCHAR szBuffer[1024] = {0};
143.   GetLogicalDriveStrings(1024, szBuffer);
144.   TCHAR *drv = szBuffer;
145.   while (*drv)
146.   {
147.     pRbTail = pRbTail->rbnext = acutBuildList(RTSTR,drv,RTNONE);
148.     drv = &drv[采用tcslen(drv) + 1];
149.   }
150.   acedRetList(pRbRet->rbnext);
151.   acutRelRb(pRbRet);
153.   return (RSRSLT) ;
154. }
155. #pragma endregion

复制代码