怎样写一个unit1,把一些函数定义为公共函数，在另一个UNIT中调用？
如以下二个函数，

Function Get_CPU_Info:string;
var
reg2:TRegistry;
begin
Result:= ' ';
reg2:=TRegistry.Create;
with reg2 do
begin
RootKey:=HKEY_LOCAL_MACHINE;
//获取CPU信息
OpenKey( 'HARDWARE\DESCRIPTION\System\CentralProcessor\0 ',False);
Result:=ReadString( 'ProcessorNameString ');
end;
reg2.free;
end;


Function Get_Disk_Size:string;
var
d:Char;
DiskType:Word; //字型　　无符号　16位
Str,S1,S2:String;
i:Integer;
total,free,userFreeBytes,totalBytes,freeBytes:Int64;
begin
total:=0; // 此处必须初始化，否则返回值巨大
free:=0;

for i:= 0 to 25 do
begin
d:=Chr(i+65);
Str:= 'd ';
DiskType:=GetDriveType(pChar(d+ ':\ '));
if(DiskType = DRIVE_FIXED) or (DiskType = DRIVE_REMOTE) then
begin
GetDiskFreeSpaceEx(pChar(d+ ':\ '),userFreeBytes,totalBytes,@freeBytes);

total:= total+totalBytes;
free:= free+freeBytes;
end;
end;
S1:= '硬盘总容量 '+Formatfloat( '###,##0 ',(((total)div 1000)div 1000)div 1000)+ 'G ';
S2:= '硬盘可用空间 '+Formatfloat( '###,##0 ',(((free)div 1000)div 1000)div 1000)+ 'G ';

Result:=S1+ ' '+S2;

end;

写入unit1,然后在unit2中调用 ，，，，，，
麻烦写出源码，我不懂这一块的写法。。。。。。




[解决办法]
...
interface
...

Function Get_CPU_Info:string;
Function Get_Disk_Size:string;

implementation

...
声明放到interface部分，其他单元就可以访问了


建议你参考SysUtils系统单元的函数封装