delphi 读写U盘(100分)

changku · 2008-09-05

在delphi 怎样读写U盘中的内容?

白河愁 · 2008-09-05

当普通盘读取。

心随风 · 2008-09-17

直接读扇区还是读文件？

batconv · 2008-09-18

找找吧，很多资料

yanghai0437 · 2008-09-19

我以前收集的资料，不知道对你是否有用。我还没有用过。你搞定后可以给我发一份就好。yanghai0437@21cn.com; #include <windows.h> #include "serial.h" #include "key.h" #define BYTE_SIZE 8  // Use 8 bit bytes for serial communications static HANDLE   hCom; // File handle for opened COM port connected to ioGizmo int serialOpen(const char * comPort, int baudRate) {    DCB      m_dcb;  // structure stores COM Port Configuration  COMMTIMEOUTS timeouts; // structure stores timeout Configuration  int success = 0; // function return value indicates success       // of initializing port    //create Win32 File Handle for COM Port  hCom = CreateFile(comPort,  // Port name   GENERIC_READ | GENERIC_WRITE, // read-write mode   0,        // exclusive access   NULL,       // no security   OPEN_EXISTING,     // for serial port   0,        // no overlapped I/O   NULL);       // null template    // get current configuration and store in DCB structure  if(GetCommState(hCom, &m_dcb)) {     // ensure that communications parameters are correctly set   m_dcb.BaudRate = baudRate;   m_dcb.ByteSize = BYTE_SIZE;   m_dcb.Parity = NOPARITY;   m_dcb.StopBits = ONESTOPBIT;   m_dcb.fAbortOnError = TRUE;     // set updated configuration   if (SetCommState(hCom, &m_dcb)) {    // get current timeout configuration and store in COMMTIMEOUTS structure    if (GetCommTimeouts(hCom, &timeouts)) {     // set the read timeouts so that a read of the receive buffer will     // return immediately with the bytes that have already been read     timeouts.ReadIntervalTimeout = MAXDWORD;     timeouts.ReadTotalTimeoutMultiplier = 0;     timeouts.ReadTotalTimeoutConstant = 0;     // set updated timeout configuration     success = SetCommTimeouts(hCom, &timeouts);    }   }  }  return success; } char serialGetC() {  char readChar;  int actBytesRead;  ReadFile(hCom, &readChar, 1, &actBytesRead, NULL);  if(actBytesRead == 0) // no character read   readChar = NO_CHAR;  return readChar; } void serialPutC(char c) {  int actBytesWrite;    WriteFile(hCom, &c, 1, &actBytesWrite, NULL); } void serialClose() {  CloseHandle(hCom); // release serial port so other programs can use it } 如何用程序来控制停止USB设备 如此简单的程序你要等一年还没解决？？？晕~！如下是你要实现的Delphi程序 代码，不知你看得懂不~？晕~靠~~~~~ unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1； implementation      uses registry; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var  reg:Tregistry;  state:integer; begin reg:=tregistry.create; reg.rootkey:=HKEY_LOCAL_MACHINE; reg.openkey('/SYSTEM/CurrentControlSet/Services/USBSTOR',true); reg.Writeinteger('start',4);//禁用停止USB设备// reg.free; end; procedure TForm1.Button2Click(Sender: TObject); var  reg:Tregistry;  state:integer; begin reg:=tregistry.create; reg.rootkey:=HKEY_LOCAL_MACHINE; reg.openkey('/SYSTEM/CurrentControlSet/Services/USBSTOR',true); reg.Writeinteger('start',3);//开启USB设备// reg.free; end; end. unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls; type   TForm1 = class(TForm)     ComboBox1: TComboBox;     Button1: TButton;     Label1: TLabel;     Bevel1: TBevel;     procedure Button1Click(Sender: TObject);     procedure FormShow(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation      uses registry; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var  reg:Tregistry;  state:integer; begin if combobox1.text='只读' then begin reg:=tregistry.create; reg.rootkey:=HKEY_LOCAL_MACHINE; reg.openkey('/SYSTEM/CurrentControlSet/Services/USBSTOR',true); reg.Writeinteger('start',2); application.MessageBox('成功更改为只读.请从新播入U盘','提示',64); reg.free; end       else       begin       if combobox1.text='读写' then       begin reg:=tregistry.create; reg.rootkey:=HKEY_LOCAL_MACHINE; reg.openkey('/SYSTEM/CurrentControlSet/Services/USBSTOR',true); reg.Writeinteger('start',3); application.MessageBox('成功更改为读写.请从新播入U盘','提示',64); reg.free;       end         else         begin reg:=tregistry.create; reg.rootkey:=HKEY_LOCAL_MACHINE; reg.openkey('/SYSTEM/CurrentControlSet/Services/USBSTOR',true); reg.Writeinteger('start',4); application.MessageBox('成功更改为禁用.请从新播入U盘','提示',64); reg.free;       end end; end; procedure TForm1.FormShow(Sender: TObject); var  regSYS:Tregistry;  read:integer; begin combobox1.Items.add('只读'); combobox1.Items.add('读写'); combobox1.Items.add('禁用'); begin regSYS:=tregistry.create; regSYS.rootkey:=HKEY_LOCAL_MACHINE; regSYS.openkey('/SYSTEM/CurrentControlSet/Services/USBSTOR',true); read:=(regSYS.ReadInteger('start')); if read=2 then begin  combobox1.ItemIndex:=0;  end  else  if read=3 then  begin  combobox1.ItemIndex:=1;  end  else  if read=4 then  begin  combobox1.ItemIndex:=2;  end end; end; end. 如何状这个做成服务 2005-6-17 11:56:57      发表评语&raquo;&raquo;&raquo;      2005-6-18 8:29:36    USB安全补充如何禁用usb设备 function TForm1.GetDevInfo(var hDevInfo: hDevInfo): boolean; begin   // Get a handle to all devices in all classes present on system   hDevInfo := SetupDiGetClassDevs(nil, nil, 0, DIGCF_PRESENT or DIGCF_ALLCLASSES);   Result := hDevInfo <> Pointer(INVALID_HANDLE_VALUE); end; 调用为： procedure TForm1.FormCreate(Sender: TObject); begin   if (not LoadSetupAPI) then   begin     ShowMessage('Could not load SetupAPI.dll');     exit;   end;   DevInfo := nil;   ShowHidden := false;   // Get a handle to all devices in all classes present on system   if not GetDevInfo(DevInfo) then   begin     ShowMessage('GetClassDevs');     exit;   end;   // Get the Images for all classes, and bind to the TreeView   ClassImageListData.cbSize := SizeOf(TSPClassImageListData);   if (not SetupDiGetClassImageList(ClassImageListData)) then   begin     ShowMessage('GetClassImageList');     exit;   end;   ImageList.Handle := ClassImageListData.ImageList;   TreeView.Images := ImageList;   // Add the devices to the TreeView window.   EnumAddDevices(ShowHidden, TreeView, DevInfo); end; procedure TForm1.mRefreshDisplayClick(Sender: TObject); begin   if not GetDevInfo(DevInfo) then   begin     ShowMessage('GetClassDevs');     exit;   end;   EnumAddDevices(ShowHidden, TreeView, DevInfo); end;     case CM_Request_Device_Eject(DeviceInfoData.DevInst, VetoType, @VetoName, SizeOf(VetoName), 0) of       CR_SUCCESS:       begin         MessageBox(Handle, 'Successful to eject the Device', 'Done', MB_OK);         if not GetDevInfo(DevInfo) then         begin           ShowMessage('GetClassDevs');           exit;         end;         EnumAddDevices(ShowHidden, TreeView, DevInfo);       end; 哈哈，这回就OK了 我想在程序中加一个监测USB接口的功能，也就是能在USB口中当有插入或拔出设备时，获得一个相应的通知，以便做某些相应的提示。 我知道有一个 WM_DEVICECHANGE    = 537的消息，当设备的硬件配置改变时发送此消息给应用程序或设备驱动程序， type   TForm1 = class(TForm)     Button1: TButton;   private     { Private declarations }     procedure WMDeviceChange(var Message: TMessage);       message WM_DEVICECHANGE;   public     { Public declarations } end; var   Form1: TForm1; implementation {$R *.DFM} const DBT_DEVICEARRIVAL = $8000; const DBT_DEVICEQUERYREMOVE = $8001; const DBT_DEVICEQUERYREMOVEFAILED = $8002; const DBT_DEVICEREMOVEPENDING = $8003; const DBT_DEVICEREMOVECOMPLETE = $8004; const DBT_DEVICETYPESPECIFIC = $8005; const DBT_CONFIGCHANGED = $0018; procedure TForm1.WMDeviceChange(var Message: TMessage); var   s : string; begin   {Do Something here}   case Message.wParam of     DBT_DEVICEARRIVAL :       s := 'A device has been inserted and is now available';     DBT_DEVICEQUERYREMOVE:     begin       s := 'Permission to remove a device is requested';       ShowMessage(s); {True grants premission}       Message.Result := integer(true);       exit;     end;     DBT_DEVICEQUERYREMOVEFAILED :       s := 'Request to remove a device has been canceled';     DBT_DEVICEREMOVEPENDING :       s := 'Device is about to be removed';     DBT_DEVICEREMOVECOMPLETE :       s := 'Device has been removed';     DBT_DEVICETYPESPECIFIC :       s := 'Device-specific event';     DBT_CONFIGCHANGED :       s:= 'Current configuration has changed'     else s := 'Unknown Device Message';   end;   ShowMessage(s);   inherited; end; 我找到如上代码，在运行过程中确实能在拔插的过程中获得了通知，但现在的问题是，拔插获得的Message.wParam的值都是一样的，都等于7，因而没有办法判断到底哪一次获得该消息时是拔掉，还是插入了。有什么办法能让我准确的区分这两个不同的操作吗？？？拖也好些时候了，希望各位老兄的帮忙，不胜感激！！！！

delphi 读写U盘(100分)

changku

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

心随风

Unregistered / Unconfirmed

batconv

Unregistered / Unconfirmed

yanghai0437

Unregistered / Unconfirmed

Similar threads