{"id":65,"date":"2009-11-10T23:47:42","date_gmt":"2009-11-10T15:47:42","guid":{"rendered":"http:\/\/tmp.xujiwei.com\/blog\/?p=65"},"modified":"2010-01-28T22:24:01","modified_gmt":"2010-01-28T14:24:01","slug":"using-win32-api-in-realbasic","status":"publish","type":"post","link":"https:\/\/xujiwei.com\/blog\/2009\/11\/using-win32-api-in-realbasic\/","title":{"rendered":"REALbasic \u4e2d\u4f7f\u7528\u7ed3\u6784\u4f53\u4f5c\u4e3a Win32 API \u7684\u53c2\u6570\u53ca\u4f7f\u7528 Win32 API \u505c\u6b62\u670d\u52a1"},"content":{"rendered":"

\u5728\u4e4b\u524d\uff0c\u6211\u4f7f\u7528 ShellExecute \u8fd9\u4e2a API \u6765\u6267\u884c\u547d\u4ee4\uff08\u300aREALbasic \u4e2d\u4f7f\u7528 ShellExecute \u6267\u884c\u547d\u4ee4\u300b\uff09\uff0c\u7136\u540e\u901a\u8fc7\u8fd9\u4e2a\u65b9\u6cd5\u6765\u505c\u6b62\u67d0\u4e2a\u670d\u52a1\uff0c\u4f46\u662f\u4eca\u5929\u60f3\u52a0\u670d\u52a1\u8fd0\u884c\u72b6\u6001\u68c0\u6d4b\uff0c\u8fd9\u6837\u5c31\u53ef\u4ee5\u5728\u670d\u52a1\u6ca1\u6709\u8fd0\u884c\u7684\u60c5\u51b5\u4e0b\u4e0d\u518d\u8be2\u95ee\u7528\u6237\u662f\u5426\u9700\u8981\u505c\u6b62\u67d0\u4e2a\u670d\u52a1\u3002<\/p>\n

\u4e3a\u4e86\u7701\u4e8b\uff0c\u6211\u4e00\u5f00\u59cb\u51b3\u5b9a\u540c\u6837\u4f7f\u7528 cmd \u53bb\u6267\u884c\u4e00\u4e2a\u547d\u4ee4\uff0c\u5c06\u670d\u52a1\u72b6\u6001\u8f93\u51fa\u5230\u4e00\u4e2a\u4e34\u65f6\u6587\u4ef6\u4e2d\uff0c\u518d\u901a\u8fc7\u8bfb\u53d6\u8fd9\u4e2a\u4e34\u65f6\u6587\u4ef6\uff0c\u67e5\u627e\u7279\u5f81\u5b57\u7b26\u4e32\u6765\u5224\u65ad\u670d\u52a1\u662f\u5426\u8fd0\u884c\uff1a<\/p>\n

\/\/ \u4f2a\u4ee3\u7801\r\nShellExecute(\"cmd.exe \/c sc query service_name > tmpfile\")\r\ndim serviceStatus as string\r\nserviceStatus = TextInputStream.Open(tmpfile).ReadAll()\r\nif instr(serviceStatus, \"STOPPED\") < 1 then\r\n  \/\/ \u63d0\u793a\u7528\u6237\u662f\u5426\u505c\u6b62\u670d\u52a1\r\nend if<\/pre>\n
\u4f46\u662f\u8fd9\u6837\u505a\u4e0d\u592a\u9760\u8c31\uff0c\u56e0\u4e3a sc \u8fd9\u4e2a\u547d\u4ee4\u6267\u884c\u662f\u8981\u65f6\u95f4\u7684\uff0c\u800c ShellExecute \u662f\u5f02\u6b65\u7684\uff0c\u8fd9\u5c31\u5bfc\u81f4\u4e86\u5728\u8c03\u7528 ShellExecute \u6267\u884c\u5b8c sc query \u4e4b\u540e\uff0c\u4e34\u65f6\u6587\u4ef6 tmpfile \u91cc\u5e76\u4e0d\u662f\u9a6c\u4e0a\u5c31\u6709\u670d\u52a1\u72b6\u6001\u7684\u5185\u5bb9\u4e86\u3002<\/p>\n
\u4e3a\u4e86\u9632\u6b62\u8fd9\u4e2a\u60c5\u51b5\uff0c\u6211\u518d\u52a0\u4e86\u4e00\u4e2a\u4e34\u65f6\u6587\u4ef6\u5185\u5bb9\u7684\u68c0\u6d4b\uff0c\u5982\u679c\u4e3a\u7a7a\u7684\u8bdd\uff0csleep 100ms\uff0c\u518d\u7ee7\u7eed\u8bfb\u53d6\uff0c\u5982\u679c\u8d85\u8fc7 10 \u6b21\u4ecd\u6ca1\u6709\u5185\u5bb9\uff0c\u76f4\u63a5\u5f53\u4f5c\u670d\u52a1\u6b63\u5728\u8fd0\u884c\u6765\u5bf9\u5f85\u3002<\/p>\n
\/\/ \u4f2a\u4ee3\u7801\r\nShellExecute(\"cmd.exe \/c sc query service_name > tmpfile\")\r\ndim serviceStatus as string\r\ndim tryCount as integer\r\nwhile tryCount < 10 and serviceStatus = \"\"\r\n  tryCount = tryCount + 1\r\n  App.SleepCurrentThread(100)\r\n  serviceStatus = TextInputStream.Open(tmpfile).ReadAll()\r\n\r\nwend\r\nif instr(serviceStatus, \"STOPPED\") < 1 then\r\n  \/\/ \u63d0\u793a\u7528\u6237\u662f\u5426\u505c\u6b62\u670d\u52a1\r\nend if<\/pre>\n
\u4f46\u662f\u8fd9\u6837\u4ecd\u7136\u4e0d\u80fd\u767e\u5206\u767e\u4fdd\u8bc1\u6b63\u786e\uff0c\u4e8e\u662f\u60f3\u5230\u53ef\u4e0d\u53ef\u4ee5\u7ee7\u7eed\u7528 win32 api \u6765\u505a\u8fd9\u4e9b\uff0cGoogle \u4e86\u4e00\u4e0b\uff0c\u627e\u5230\u4e00\u7bc7\u535a\u5ba2[1]\uff0c\u770b\u4e86\u4e4b\u540e\u53d1\u73b0\u5982\u679c\u53ea\u9700\u8981\u505c\u6b62\u670d\u52a1\u7684\u8bdd\uff0c\u8fd8\u662f\u86ee\u7b80\u5355\u7684\uff0c\u51b3\u5b9a\u4f7f\u7528 win32 api \u6765\u5b9e\u73b0\u6211\u60f3\u8981\u7684\u529f\u80fd\u4e86\u3002<\/p>\n
\u5728\u505c\u6b62\u670d\u52a1\u8fd9\u4e2a\u8fc7\u7a0b\u4e2d\u9700\u8981\u7528\u5230\u7684 win32 api \u6709\uff1aOpenSCManagerW\u3001OpenServiceW\u3001QueryServiceStatus\u3001ControlService\uff0c\u8fd8\u6709\u4e00\u4e2a\u7ed3\u6784\u4f53\uff1aSERVICE_STATUS\u3002<\/p>\n
win32 api \u7684\u53c2\u6570\u90fd\u5f88\u597d\u5bf9\u5e94\uff0c\u6570\u503c\u3001\u53e5\u67c4\u7c7b\u578b\u7684\u53c2\u6570\u76f4\u63a5\u4f7f\u7528 Integer \u5373\u53ef\uff0c\u5b57\u7b26\u4e32\u7c7b\u578b\u4f7f\u7528 CString\uff0c\u800c SERVICE_STATUS \u8fd9\u4e2a\u7ed3\u6784\u4f53\u4e5f\u53ef\u4ee5\u76f4\u63a5\u901a\u8fc7\u5de5\u7a0b\u83dc\u5355\u6dfb\u52a0\u3002<\/p>\n
\u5728\u4f20\u53c2\u7684\u65f6\u5019\u9700\u8981\u6ce8\u610f\u4e24\u70b9\uff1a<\/p>\n
    \n
  1. \u5982\u679c\u662f\u5b57\u7b26\u4e32\u7c7b\u578b\u7684\u53c2\u6570\u5e76\u4e14\u8c03\u7528\u7684\u63a5\u53e3\u662f\u00a0Unicode\u00a0\u7c7b\u578b\u7684\uff0c\u90a3\u4e48\u9700\u8981\u5728\u4f20\u5165\u53c2\u6570\u4e4b\u524d\uff0c\u5c06\u53c2\u6570\u503c\u8f6c\u6362\u4e3a\u00a0Unicode\u00a0\u7f16\u7801\u3002\u53ef\u4ee5\u901a\u8fc7\u00a0ConvertEncoding(text,\u00a0Encodings.UTF16)\u00a0\u6765\u8f6c\u6362\u3002<\/strong><\/li>\n
  2. \u5982\u679c\u53c2\u6570\u662f\u7ed3\u6784\u4f53\uff0c\u90a3\u4e48\u53c2\u6570\u524d\u7684\u4f20\u53c2\u65b9\u5f0f\u5c31\u8981\u5199\u00a0ByRef\uff0c\u4e5f\u5c31\u662f\u6309\u5f15\u7528\u4f20\u503c\uff0c\u5b57\u7b26\u4e32\u548c\u6570\u503c\u7c7b\u578b\u7684\u53c2\u6570\u53ef\u4ee5\u4e0d\u5199\u6216\u8005\u5199\u00a0ByVal\u3002<\/strong><\/li>\n<\/ol>\n
    \u4ee5\u4e0b\u662f\u00a04\u00a0\u4e2a\u00a0win32\u00a0api\u00a0\u7684\u00a0REALbasic\u00a0\u5b9a\u4e49\uff1a<\/p>\n
    soft declare function OpenSCManagerW Lib \"advapi32.dll\" _\r\n(ByVal lpMachineName As CString, ByVal lpDatabaseName As CString, _\r\nByVal dwDesiredAccess As Integer) As Integer\r\n\r\nsoft declare function OpenServiceW lib \"advapi32.dll\" _\r\n(ByVal hSCManager As Integer, ByVal lpServiceName As CString, _\r\nByVal dwDesiredAccess As Integer) As Integer\r\n\r\nsoft declare function QueryServiceStatus lib \"advapi32.dll\" _\r\n(byval hService as integer, byref lpServiceStatus as SERVICE_STATUS) _\r\nas boolean\r\n\r\nsoft declare function ControlService lib \"advapi32.dll\" _\r\n(byval hService as integer, byval dwControl as integer, _\r\nbyref lpServiceStatus as SERVICE_STATUS) as boolean<\/pre>\n
    \u6709\u4e86 api \u5b9a\u4e49\u4e4b\u540e\uff0c\u5c31\u53ef\u4ee5\u76f4\u63a5\u6839\u636e\u4e0a\u9762\u63d0\u5230\u7684 vc++ \u6d41\u7a0b\u6765\u505c\u6b62\u67d0\u4e2a\u670d\u52a1\u4e86\u3002<\/p>\n
    \u5b8c\u6574\u7684\u670d\u52a1\u64cd\u4f5c api \u53ef\u4ee5\u53c2\u9605\u5fae\u8f6f\u7684 MSDN\u3002<\/p>\n
    \u8fd9\u6837\u770b\u6765\uff0cREALbasic \u8981\u5199\u51fa\u652f\u6301 Windows 7 \u7279\u6027\u7684\u5e94\u7528\u7a0b\u5e8f\u4e5f\u4e0d\u662f\u96be\u4e8b\uff1a\uff09<\/p>\n
    \u53c2\u6570\u8d44\u6599<\/strong><\/p>\n
      \n
    1. VC++\u542f\u52a8\u548c\u505c\u6b62\u670d\u52a1<\/a>,\u00a0huangchonghai<\/li>\n
    2. QueryServiceStatus<\/a>,\u00a0MSDN<\/li>\n<\/ol>\n","protected":false},"excerpt":{"rendered":"
      \u5728\u4e4b\u524d\uff0c\u6211\u4f7f\u7528 ShellExecute \u8fd9\u4e2a API \u6765\u6267\u884c\u547d\u4ee4\uff08\u300aREALb …<\/p>\n
      \u7ee7\u7eed\u9605\u8bfb »<\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[5],"tags":[55,56],"_links":{"self":[{"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/posts\/65"}],"collection":[{"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/comments?post=65"}],"version-history":[{"count":0,"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/posts\/65\/revisions"}],"wp:attachment":[{"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/media?parent=65"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/categories?post=65"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/tags?post=65"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}