文档介绍:
Uses
Uses
Rt_ClientServerlnteface;VarServerDocumentView:IServerDocumentView;VarCurrentDirectory:AnsiString;VarTargetFile:File;VarTargetDirectory:AnsiString;BeginServerDocumentView:=;CurrentDirectory:=ExtractFileDir(;
TargetDirectory:=CurrentDirectory+'\HardwarePlatform\graphics\';ChDir(TargetDirectory;//renameeverythingbacktoterminalIfNotFileExists(''ThenBeginAssignFile(TargetFile,'';Rename(TargetFile,'';End;//renamebocmanfilestocommonfilesIfFileExists(''ThenBeginAssignFile(TargetFile,'';Rename(TargetFile,'';End;End;UsesRt_ClientServerlnterface;VarServerDocumentView:IServerDocumentView;VarCurrentDirectory:AnsiString;VarTargetFile:File;VarTargetDirectory:AnsiString;BeginServerDocumentView:=;CurrentDirectory:=ExtractFileDir(;TargetDirectory:=CurrentDirectory+'\HardwarePlatform\graphics\';ChDir(TargetDirectory;//renameeverythingbacktobocmanIfNotFileExists(''ThenBeginAssignFile(TargetFile,'';Rename(Tar