实现磁盘驱动器相关（序列号等）信息返回给LISP使用

ObjectARX

1. #include "StdAfx.h"
   
2. #include "VolumeManagement.h"
   
3. 
   
4. #pragma region //DriveTypeFlags
   
5. 
   
6. struct // DriveType
   
7. {
   
8.   UINT type;                        // return code from GetDriveType
   
9.   LPCTSTR name;                // ascii name
   
10. }
    
11. 
    
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. };
    
23. 
    
24. #pragma endregion
    
25. 
    
26. #pragma region //driveserialno
    
27. //(crpdriveserialno "c")
    
28. int DriveSerialNo(void)
    
29. {
    
30.   //Declare string variables
    
31.   CString str;
    
32.   struct resbuf *pArgs =acedGetArgs ();
    
33. 
    
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();
    
55. 
    
56.   return (RSRSLT) ;
    
57. }
    
58. #pragma endregion
    
59. 
    
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
    
87. 
    
88. #pragma region //drivetype
    
89. //(crpdrivetype "c")
    
90. int DriveType(void)
    
91. {
    
92. 
    
93.   //
    
94.   CString str;
    
95.   CString DriveType;
    
96. 
    
97.   //
    
98.   struct resbuf *rb = NULL;
    
99. 
    
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);
     
115. 
     
116.   for (int i=0; DriveTypeFlags.name; i++)
     
117.   {
     
118.     if (uDriveType == DriveTypeFlags.type)
     
119.     {
     
120.       DriveType = DriveTypeFlags.name;
     
121.       break;
     
122.     }
     
123.   }
     
124. 
     
125.   //
     
126.   if (!DriveType.IsEmpty())
     
127.     acedRetStr(DriveType);
     
128.   else
     
129.     acedRetNil();
     
130.   return (RSRSLT) ;
     
131. }
     
132. #pragma endregion
     
133. 
     
134. #pragma region //drives
     
135. //(crpdrives)
     
136. int Drives(void)
     
137. {
     
138.   struct resbuf* pRbRet = acutNewRb(RTT);
     
139.   struct resbuf* pRbTail;
     
140.   pRbTail = pRbRet;
     
141. 
     
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);
     
152. 
     
153.   return (RSRSLT) ;
     
154. }
     
155. #pragma endregion
     
156. 
     

#include "StdAfx.h"<br /> #include "VolumeManagement.h"<br /> <br /> #pragma region //DriveTypeFlags<br /> <br /> struct // DriveType<br /> {<br />   UINT type;                        // return code from GetDriveType<br />   LPCTSTR name;                // ascii name<br /> }<br /> <br /> DriveTypeFlags [] = <br /> {<br />   { DRIVE_UNKNOWN,     _T("Unknown") },<br />   { DRIVE_NO_ROOT_DIR, _T("Invalid path") },<br />   { DRIVE_REMOVABLE,   _T("Removable") },<br />   { DRIVE_FIXED,       _T("Fixed") },<br />   { DRIVE_REMOTE,      _T("Network drive") },<br />   { DRIVE_CDROM,       _T("CD-ROM") },<br />   { DRIVE_RAMDISK,     _T("RAM disk") },<br />   { 0, NULL}<br /> }; <br /> <br /> #pragma endregion<br /> <br /> #pragma region //driveserialno<br /> //(crpdriveserialno "c")<br /> int DriveSerialNo(void)<br /> {<br />   //Declare string variables<br />   CString str;<br />   struct resbuf *pArgs =acedGetArgs ();<br /> <br />   if(pArgs == NULL)<br />     str = _T("C");<br />   else<br />   {<br />     if(pArgs->restype == RTSTR) <br />       str = pArgs->resval.rstring;<br />     else<br />       str = _T("C");<br />   }<br />   str.Truncate(1);<br />   str = str + _T(":\\");<br />   DWORD VolumeSerialNumber = 0;<br />   GetVolumeInformation(str, NULL, 0, (DWORD *)&VolumeSerialNumber, NULL, NULL, NULL, 0 );<br />   if (VolumeSerialNumber != 0)<br />   { <br />     TCHAR Result[10] = {0};<br />     _sntprintf(Result , sizeof(TCHAR)*10 , _T("%X") , VolumeSerialNumber );<br />     acedRetStr(Result);<br />   }<br />   else<br />     acedRetNil();<br /> <br />   return (RSRSLT) ;<br /> } <br /> #pragma endregion<br /> <br /> #pragma region //filesystem<br /> //(crpfilesystem "c")<br /> int FileSystem(void)<br /> {<br />   CString str;<br />   struct resbuf *pArgs =acedGetArgs () ;<br />   //get the resbuf from lisp, test validity<br />   if(pArgs == NULL)<br />     str = _T("C");<br />   else<br />   {<br />     if(pArgs->restype == RTSTR) <br />       str = pArgs->resval.rstring;<br />     else<br />       str = _T("C");<br />   }<br />   str.Truncate(1);<br />   str = str + _T(":\\");<br />   TCHAR FileSystem[MAX_PATH] = {0};<br />   GetVolumeInformation(str, NULL, 0, NULL, NULL, NULL, FileSystem, sizeof(TCHAR)*MAX_PATH);<br />   if (_tcsclen(FileSystem) != NULL)<br />     acedRetStr(FileSystem);<br />   else<br />     acedRetNil();<br />   return (RSRSLT) ;<br /> } <br /> #pragma endregion<br /> <br /> #pragma region //drivetype<br /> //(crpdrivetype "c")<br /> int DriveType(void)<br /> {<br /> <br />   //<br />   CString str;<br />   CString DriveType;<br /> <br />   //<br />   struct resbuf *rb = NULL;<br /> <br />   //<br />   struct resbuf *pArgs =acedGetArgs () ;<br />   if(pArgs == NULL)<br />     str = _T("C");<br />   else<br />   {<br />     if(pArgs->restype == RTSTR) <br />       str = pArgs->resval.rstring;<br />     else<br />       str = _T("C");<br />   };<br />   //<br />   str.Truncate(1);<br />   str += _T(":\\");<br />   UINT uDriveType = GetDriveType(str);<br /> <br />   for (int i=0; DriveTypeFlags<i>.name; i++) <br />   {<br />     if (uDriveType == DriveTypeFlags<i>.type) <br />     {<br />       DriveType = DriveTypeFlags<i>.name;<br />       break;<br />     }<br />   }<br /> <br />   //<br />   if (!DriveType.IsEmpty())<br />     acedRetStr(DriveType);<br />   else<br />     acedRetNil();<br />   return (RSRSLT) ;<br /> }<br /> #pragma endregion <br /> <br /> #pragma region //drives<br /> //(crpdrives)<br /> int Drives(void)<br /> {<br />   struct resbuf* pRbRet = acutNewRb(RTT);<br />   struct resbuf* pRbTail;<br />   pRbTail = pRbRet;<br /> <br />   TCHAR szBuffer[1024] = {0};<br />   GetLogicalDriveStrings(1024, szBuffer);<br />   TCHAR *drv = szBuffer;<br />   while (*drv) <br />   {<br />     pRbTail = pRbTail->rbnext = acutBuildList(RTSTR,drv,RTNONE);<br />     drv = &drv[_tcslen(drv) + 1];<br />   }<br />   acedRetList(pRbRet->rbnext);<br />   acutRelRb(pRbRet);<br /> <br />   return (RSRSLT) ;<br /> }<br /> #pragma endregion <br /> <br />