请问如何删除已安装的第三方控件？还有就是fillchar和format的用法。(50分)

请问如何删除已安装的第三方控件？还有就是fillchar和format的用法。

Component->Install Packages
选择包,然后Remove
var
S: array[0..79] of char;
begin
{ Set to all spaces }
FillChar(S, SizeOf(S), Ord(' '));
end;

var
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
begin
OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);
try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
end;
end;

选择File->Open Dclusr.dpk在里面可以看到你安装过的控件，选择相应的控件后可以点REMOVE
会弹出一个对话框让你选择需要删除的控件选择相应的控件后点OK即可。

多人接受答案了。
得分大富翁：ysai-30,懒虫007-10,greenwon-10

UP