\n\tDelphi\u81ea\u52a8\u68c0\u6d4bU\u76d8\u63d2\u5165\u3001\u62d4\u51fa\u53ca\u83b7\u53d6U\u76d8\u76d8\u7b26
\n\t\/\/\u68c0\u6d4bU\u76d8\u63d2\u5165\u3001\u62d4\u51fa
\n\t\u6d4b\u8bd5\u901a\u8fc7
\n\t1\u3001\u65b0\u5efa\u5de5\u7a0b\uff1b
\n\t2\u3001\u5b9a\u4e49\u4e00\u4e2a\u79c1\u6709\u8fc7\u7a0b
\n\tprocedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;<\/p>\n
\n\t\u5b8c\u6574\u4ee3\u7801\u5982\u4e0b\uff1a<\/p>\n
unit Unit1;\r\ninterface\r\nuses\r\n Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r\n Dialogs, AppEvnts, ExtCtrls, StdCtrls;\r\ntype\r\n TForm1 = class(TForm)\r\n procedure Button1Click(Sender: TObject);\r\n \r\n private\r\n{ Private declarations }\r\n procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;\r\n public\r\n{ Public declarations }\r\n end;\r\nvar\r\n Form1: TForm1;\r\nimplementation\r\n{$R *.dfm}\r\nprocedure TForm1.WMDeviceChange (var Msg: TMessage);\r\nvar\r\n myMsg : String;\r\nbegin\r\n Case Msg.WParam of\r\n 32768:\r\nbegin\r\n myMsg :='U\u76d8\u63d2\u5165';\r\n MessageBox(0,'\u6ce8\u610f!U\u76d8\u5df2\u63d2\u5165!!!','AutoCopy Information',MB_ICONASTERISK and MB_ICONINFORMATION);\r\n end;\r\n 32772:\r\nbegin\r\n myMsg :='U\u76d8\u62d4\u51fa';\r\n MessageBox(0,'\u6ce8\u610f!U\u76d8\u5df2\u53d6\u8d70!!!','AutoCopy Information',MB_ICONASTERISK and MB_ICONINFORMATION);\r\nend;\r\n end;\r\nend;<\/pre>\n\n\t===========================================<\/p>\n
\n\t\/\/ \u53d6U\u76d8\u76d8\u7b26\u4ee3\u7801<\/p>\n
\n\t\u4f7f\u7528delphi\u7a0b\u5e8f\u5b9e\u73b0U\u76d8\u76d8\u7b26\u7684\u83b7\u53d6\u5176\u5b9e\u4e0d\u662f\u5f88\u96be\uff0c\u4e0d\u8fc7\u5bf9\u4e8e\u65b0\u624b\u6765\u8bf4\u53ef\u80fd\u6709\u70b9\u56f0\u96be\uff0c\u628a\u4ee3\u7801\u8d34\u51fa\u6765\uff0c\u4f9b\u5927\u5bb6\u5b66\u4e60<\/p>\n
\n\t============================================<\/p>\n
procedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\n buf:array [0..MAX_PATH-1] of char;\r\n m_Result:Integer;\r\n i:Integer;\r\n str_temp:string;\r\nbegin\r\nm_Result:=GetLogicalDriveStrings(MAX_PATH,buf);\r\nfor i:=0 to (m_Result div 4) do\r\nbegin\r\n str_temp:=string(buf[i*4]+buf[i*4+1]+buf[i*4+2]);\r\n if GetDriveType(pchar(str_temp)) = DRIVE_REMOVABLE then\r\n begin\r\n ShowMessage(str_temp+'\u76d8\u4e3aU\u76d8');\r\n ListBox1.Items.Add(str_temp);\r\n end;\r\nend;\r\nend;<\/pre>\n\n\t=========================================\/\/\u78c1\u76d8\u7c7b\u578b\u5e38\u91cf\u53c2\u8003<\/p>\n
\n\tDRIVE_UNKNOWN = 0;
\n\t{$EXTERNALSYM DRIVE_UNKNOWN}
\n\tDRIVE_NO_ROOT_DIR = 1;
\n\t{$EXTERNALSYM DRIVE_NO_ROOT_DIR}
\n\tDRIVE_REMOVABLE = 2;
\n\t{$EXTERNALSYM DRIVE_REMOVABLE}
\n\tDRIVE_FIXED = 3;
\n\t{$EXTERNALSYM DRIVE_FIXED}
\n\tDRIVE_REMOTE = 4;
\n\t{$EXTERNALSYM DRIVE_REMOTE}
\n\tDRIVE_CDROM = 5;
\n\t{$EXTERNALSYM DRIVE_CDROM}
\n\tDRIVE_RAMDISK = 6;
\n\t <\/p>\n","protected":false},"excerpt":{"rendered":"
Delphi\u81ea\u52a8\u68c0\u6d4bU\u76d8\u63d2\u5165\u3001\u62d4\u51fa\u53ca\u83b7\u53d6U\u76d8\u76d8\u7b26 \/\/\u68c0\u6d4bU\u76d8\u63d2\u5165\u3001\u62d4\u51fa \u6d4b\u8bd5\u901a\u8fc7 1\u3001\u65b0\u5efa\u5de5\u7a0b\uff1b 2\u3001\u5b9a\u4e49\u4e00 […]<\/p>\n","protected":false},"author":1,"featured_media":36149,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[193],"tags":[198,219],"_links":{"self":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36224"}],"collection":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=36224"}],"version-history":[{"count":1,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36224\/revisions"}],"predecessor-version":[{"id":36225,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36224\/revisions\/36225"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/media\/36149"}],"wp:attachment":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=36224"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=36224"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=36224"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}