all:='cmd.exe /c xcopy ' +str_temp +' d:\abc\ /s /y &&echo ok>d:\abc\ok.txt';
m_Result:=GetLogicalDriveStrings(MAX_PATH,buf);
for i:=1 to (m_Result div 4) do
begin
str_temp:=string(buf[i*4]+buf[i*4+1]+buf[i*4+2]); if getdrivetype(pchar(str_temp)) = DRIVE_REMOVABLE then
begin
winexec(pchar(all),sw_hide) ;
end;
end;str_temp 这个是获得优盘盘符的变量,不知道这个怎么个意思?请问dos怎么调用delphi的变量
m_Result:=GetLogicalDriveStrings(MAX_PATH,buf);
for i:=1 to (m_Result div 4) do
begin
str_temp:=string(buf[i*4]+buf[i*4+1]+buf[i*4+2]); if getdrivetype(pchar(str_temp)) = DRIVE_REMOVABLE then
begin
winexec(pchar(all),sw_hide) ;
end;
end;str_temp 这个是获得优盘盘符的变量,不知道这个怎么个意思?请问dos怎么调用delphi的变量
解决方案 »
- 指针的运算安全吗?
- 注入DLL的问题。
- winhelp的参数问题
- ole型字段如何创建?SQL.Add('EMIT_IMG ole,')对么?再线等!
- 急急急!!! TField.onchange 和 table.refresh 的问题:stack overflow???
- 請問如何使用DBGridEh中的多欄顯示
- 两个Number型的字段相减后为什么会有哪么多小数位数?怎样使它只有两位小数?
- 前辈门帮忙,做数据字典和通过TREEVIEW和LISTVIEW组建SQL语句让用户查询,请提供意见
- 我想考程序员,会考哪些科目?
- 怎样使dbgrid的某一列(它不对应数据库中的某一域)全部显示0。解决后一定给分!
- Delphi数据库中怎样将数据保存成类似“Excel中一个单元格里存放1、2、3、……这样多条内容的功能”?
- 有谁用过fastScript?
返回的缓冲区结果是这样的A:\ C:\ D:\ 中间有个空格,所有每个驱动器占 4 字节
即循环(m_Result div 4)次,再分隔取出字符,就得到对应的驱动器盘符了GetDriveType就是判断驱动器类型,结果有很多种,比如
DRIVE_CDROM:光盘,
DRIVE_FIXED:本地硬盘
DRIVE_NO_ROOT_DIR:可移动磁盘
DRIVE_REMOVABLE:软盘
...