{"id":1444,"date":"2024-06-05T20:01:38","date_gmt":"2024-06-05T12:01:38","guid":{"rendered":"http:\/\/www.jh1999.cn\/?p=1444"},"modified":"2024-08-17T11:44:22","modified_gmt":"2024-08-17T03:44:22","slug":"delphi%e6%93%8d%e4%bd%9cwindows%e5%8a%9f%e8%83%bd","status":"publish","type":"post","link":"http:\/\/www.jh1999.cn\/?p=1444","title":{"rendered":"Delphi\u64cd\u4f5cWindows\u529f\u80fd"},"content":{"rendered":"<div class=\"gb-container gb-container-8174b08c\">\n\n<p class=\"wp-block-paragraph\">\u5148\u8bf4\u51e0\u4e2a\u5bb9\u6613\u6df7\u6dc6\u7684\u6982\u5ff5\uff1a<br>\nDirectory(\u76ee\u5f55)\uff1a\u7269\u7406\u78c1\u76d8\u4e0a\u5b58\u5728\u7684\u771f\u5b9e\u6587\u4ef6\u5939<br>\nFolder(\u6587\u4ef6\u5939)\uff1a\u9664\u771f\u5b9e\u7684\u6587\u4ef6\u5939\u5916\uff0c\u8fd8\u5305\u62ec\u201c\u8ba1\u7b97\u673a\u201d\u201c\u56de\u6536\u7ad9\u201d\u201c\u63a7\u5236\u9762\u677f\u201d\u7b49\u865a\u62df\u5939\uff0c\u8303\u56f4\u6bd4Directory\u66f4\u5927<br>\npath(\u8def\u5f84):\u5219\u662f\u6307\u6587\u4ef6\u6216\u6587\u4ef6\u5939\u7684\u5b8c\u6574\u8def\u5f84\n<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u540c\u76f8\u5bb9\u6613\u6df7\u6dc6\u7684\u51e0\u4e2a\u6982\u5ff5\uff1a<br>\n\u5f53\u524d\u7528\u6237\u6839\u76ee\u5f55(HOMEDRIVE)<br>\n\u5f53\u524d\u7528\u6237\u76ee\u5f55(USERPROFILE)<br>\n\u5f53\u524d\u7528\u6237\u8def\u5f84(HOMEPATH)<br>\n\u7a0b\u5e8f\u5b89\u88c5\u9ed8\u8ba4\u76ee\u5f55(PROGRAMFILES)\n<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u53d6\u5f97\u5f53\u524d\u7528\u6237\u540d(echo %USERNAME%)\uff1a<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>var\n  p:PChar;\nbegin\n  GetMem(p,200);\n  GetUserName(P,200);\n  Result:=StrPas(P);\nend;<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\">\u6307\u5b9a\u7684\u76ee\u5f55\u5982\u679c\u4e0d\u5b58\u5728<br> if not DirectoryExists(&#8216;c:\\jhDBBack&#8217;) then<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u83b7\u53d6\u672c\u673a\u4e3b\u673a\u540d(\u65e0\u9700winSock)\uff1a<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>procedure TMainForm.tmrMonitorTimer(Sender: TObject);\nvar\n  ComputerName:array&#91;0..MAX_COMPUTERNAME_LENGTH+1] of char; \/\/\u4fdd\u7559\u8ba1\u7b97\u673a\u540d\u7684\u7f13\u51b2\u533a\n  Buffer:Dword; \/\/ \u7f13\u51b2\u533a\u5927\u5c0f\n  sComputerName:string;\/\/\u8ba1\u7b97\u673a\u540d\nbegin\n  Buffer:=MAX_COMPUTERNAME_LENGTH+1;\n  if GetComputerName(@ComputerName,Buffer)   then\n    begin\n      sComputerName:=ComputerName;\n    end\n  else\n    begin\n      sComputerName:='';\n    end;\n  ShowMessage(sComputerName);\nend;<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\">\u5224\u65ad\u67d0\u4e2a\u6587\u4ef6\u662f\u5426\u5df2\u88ab\u6253\u5f00\uff1a<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>procedure TForm1.Label1DblClick(Sender: TObject);\nvar\n  sFile:String;\n  iHandle:Integer;\nbegin\n  sFile:=ExtractFilePath(Application.ExeName)+'WeeklySO.xlsx';\n  iHandle:= FileOpen(xlFile,fmShareExclusive);\n  if(iHandle &lt; 0) then\n    showmessage('\u6587\u4ef6\u6253\u5f00\u4e2d')\n  else showmessage('\u6ca1\u6709\u6253\u5f00');\n  FileClose(iHandle);\t\/\/\u8bd5\u5b8c\u540e\u8981\u5173\u95ed\u5426\u5219sFile\u6587\u4ef6\u65e0\u6cd5\u64cd\u4f5c\nend;<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\">\u83b7\u53d6\u8fdc\u7a0b\u7f51\u5361MAC\u5730\u5740\uff08\u4e0d\u540c\u7684\u64cd\u4f5c\u7cfb\u7edf\u53ef\u80fd\u4e0d\u540c\uff09\uff1a<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>function TfmregSetup.GetSerMac(sIP:String):String;\nvar\n myIP:ulong;\n myMac:Array&#91;0..5] of byte;\n myMacLength:uLong;\n r:integer;\nbegin\n result:='';\n myIP:=inet_addr(pChar(sIP));\n myMacLength:=length(myMac);\n r:=sendArp(myIP,0,@myMac,@myMacLength);\n if r=0 then\n  result:=format('%2.2x%2.2x%2.2x%2.2x%2.2x%2.2x',&#91;myMac&#91;0],myMac&#91;1],myMac&#91;2],myMac&#91;3],myMac&#91;4],myMac&#91;5]]);\nend;<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\">\u5173\u95ed\u5916\u90e8\u5e94\u7528\u7a0b\u5e8f(\u4f8b\u5982ERP\u5347\u7ea7)<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>uses ShellAPI\n\nfunction Tfmuperp.updComplete;\nvar\n  hErp:Hwnd;\n  sList:TStringList;\n  iI:Integer;\n  sfosCopy:TShFileOpStruct;\nbegin\n  Result:=false;\n  \/\/\u5173\u95ed\u4e3b\u8fdb\u7a0bsEndProc\u8fdb\u7a0b\u7684\u663e\u793a\u540d\u79f0-\u975e\u7a0b\u5e8f\u6587\u4ef6\u540d\n  hErp:=FindWindow(nil,PChar(sEndProc));\n  if hErp&lt;&gt;0 then Sendmessage(hErp,wm_close,0,0);\n  sleep(2000);\n  \/\/\u5c06\u6587\u4ef6\u6e05\u5355|\u8f6c\u4e3a\u5217\u8868\u9010\u4e2a\u8003\u8d1d\n  \/\/\u53ef\u4ee5\u628a\u5b50\u76ee\u5f55\u8003\u8d1d\n  FillChar(sfosCopy,SizeOf(TshFileOpStruct),#0);\n  sfosCopy.Wnd:=Handle;\n  sfosCopy.wFunc:=FO_Copy;\n  sfosCopy.fFlags:=FOF_SILENT or FOF_NOCONFIRMATION;\n  sList:=TStringList.Create();\n  sList.Text:=StringReplace(sUpdFile,'|',char(13)+char(10),&#91;rfReplaceAll]);\n  for iI:=0 to sList.Count-1 do\n  begin\n    sfosCopy.pFrom:=pChar(sFromPath + sList&#91;iI] + #0 + #0);\n    sfosCopy.pTo:=pChar(sAppPath);\n    ShFileOperation(sfosCopy);\n  end;\n  sList.Free;\n  Result:=true;\nend;<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\">\u83b7\u53d6windows\u7248\u672c\u4fe1\u606f\uff1a<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Procedure Tform1.Button1Click(sender:TObject);\nVar\nOSVI:OSVERSIONINFO;\nbegin\nOSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONINFO)\uff1b\nGetVersionEx(OSVI);\nlabel1.Caption:=IntToStr(OSVI.dwMinorVersion)+\u2019,\u2019\n+IntToStr(OSVI.dwMinorVersion)+\u2019,\u2019\n+IntToStr(OSVI.dwBuildNumber)+\u2019,\u2019\n+IntToStr(OSVI.dwPlatformId)+\u2019,\u2019\n+OSVI.szCSDVersion;\nend;\nend.<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\">\u83b7\u53d6CPU\u4fe1\u606f\uff1a<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>procedure TForm1.Button1Click(Sender: TObject);\nVar\nSysInfo:SYSTEM_INFO;\nbegin\nGetSystemInfo(Sysinfo);\nEdit1.Text:=\u2019\u7cfb\u7edf\u4e2d\u6709\u2019+IntToStr(Sysinfo.dwNumberOfProcessors)+\u2019\u4e2aCPU\u2019\n      +\u2019,\u7c7b\u578b\u4e3a\u2019+IntToStr(Sysinfo.dwProcessorType);\nend;\nend.<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\">\u83b7\u53d6\u5185\u5b58\u4fe1\u606f\uff1a<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>procedure TForm1.Button1Click(Sender: TObject);\nVar\nMemInfo:MEMORYSTATUS;\nbegin\nMemInfo.dwLength:=sizeof(MEMORYSTATUS);\nGlobalMemoryStatus(MemInfo);\nmemo1.Lines.Add(IntToStr(MemInfo.dwMemoryLoad)+\u2019%\u7684\u5185\u5b58\u6b63\u5728\u4f7f\u7528\u2019) ;\nmemo1.Lines.Add(\u2019\u7269\u7406\u5185\u5b58\u5171\u6709\u2019+IntToStr(MemInfo.dwTotalPhys)+\u2019\u5b57\u8282\u2019);\nmemo1.Lines.Add(\u2019\u53ef\u4f7f\u7528\u7684\u7269\u7406\u5185\u5b58\u6709\u2019+IntToStr(MemInfo.dwAvailPhys)+\u2019\u5b57\u8282\u2019);\nmemo1.Lines.Add(\u2019\u4ea4\u6362\u6587\u4ef6\u603b\u5927\u5c0f\u4e3a\u2019+IntToStr(MemInfo.dwTotalPageFile)+\u2019\u5b57\u8282\u2019) ;\nmemo1.Lines.Add(\u2019\u5c1a\u53ef\u4ea4\u6362\u6587\u4ef6\u5927\u5c0f\u4e3a\u2019+IntToStr(MemInfo.dwAvailPageFile)+\u2019\u5b57\u8282\u2019);\nmemo1.Lines.Add(\u2019\u603b\u865a\u62df\u5185\u5b58\u6709\u2019+IntToStr(MemInfo.dwTotalVirtual)+\u2019\u5b57\u8282\u2019);\nmemo1.Lines.Add(\u2019\u672a\u7528\u865a\u62df\u5185\u5b58\u6709\u2019+IntToStr(MemInfo.dwAvailVirtual)+\u2019\u5b57\u8282\u2019);\nend;\nend.<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\">windows \u7684\u533a\u57df\u4fe1\u606f\uff1a<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>function TForm1.GetLocaleInformation(Flag: Integer): String;\nvar\n    pcLCA: Array&#91;0..20] of Char;\nbegin\n   if( GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,Flag,pcLCA,19) &lt;= 0 ) then \n   begin    \n        pcLCA&#91;0] := #0; \n   end; \n   Result := pcLCA;  \nend; \n \nprocedure TForm1.Button1Click(Sender: TObject); \nbegin \n    ShowMessage(GetLocaleInformation(LOCALE_SENGLANGUAGE)); \nend;<\/code><\/pre>\n\n<div class=\"gb-shapes\"><div class=\"gb-shape gb-shape-1\"><svg xmlns=\"http:\/\/www.w3.org\/2000\/svg\" viewBox=\"0 0 1200 234\" preserveAspectRatio=\"none\"><path d=\"M0 0l40 40c40 40 120 120 200 115.6 80-4.8 160-93.1 240-111.2C560 26.7 640 80 720 88.9c80 8.6 160-26.4 240-13.3 80 13.6 160 75.2 200 106.7l40 31.1V234H0V0z\"\/><\/svg><\/div><\/div><\/div>","protected":false},"excerpt":{"rendered":"<p>\u5148\u8bf4\u51e0\u4e2a\u5bb9\u6613\u6df7\u6dc6\u7684\u6982\u5ff5\uff1a Directory(\u76ee\u5f55)\uff1a\u7269\u7406\u78c1\u76d8\u4e0a\u5b58\u5728\u7684\u771f\u5b9e\u6587\u4ef6\u5939 Folder(\u6587\u4ef6\u5939)\uff1a\u9664\u771f &#8230; <a title=\"Delphi\u64cd\u4f5cWindows\u529f\u80fd\" class=\"read-more\" href=\"http:\/\/www.jh1999.cn\/?p=1444\" aria-label=\"Read more about Delphi\u64cd\u4f5cWindows\u529f\u80fd\">\u9605\u8bfb\u66f4\u591a<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[],"class_list":["post-1444","post","type-post","status-publish","format-standard","hentry","category-kfbj"],"_links":{"self":[{"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=\/wp\/v2\/posts\/1444","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1444"}],"version-history":[{"count":5,"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=\/wp\/v2\/posts\/1444\/revisions"}],"predecessor-version":[{"id":2028,"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=\/wp\/v2\/posts\/1444\/revisions\/2028"}],"wp:attachment":[{"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1444"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1444"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.jh1999.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1444"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}