Question

**帮忙解释一下这个delphi过程

procedure TFrmMsComm.FormCreate(Sender: TObject);
var
TempIniFile:TInifile;
FileName,TempDir1,TempDir2:string;
i,Len:integer;
begin
Len:=0;
TempDir1:=GetAppPath;
for i:=Length(TempDir1) Downto 1 do
begin
if TempDir1[i]='\' then
begin
Len:=i;
Break;
end;
end;
TempDir2:=TempDir1+'\DDl';
if not DirectoryExists(TempDir2) then
CreateDir(TempDir2);
FileName:=TempDir2+'\DCPconfig.ini';
TempIniFile:=TInifile.Create(FileName);
W_5375_Initial(0,$379,-1);

{ CheckPrn:=TCheckPrn.Create(True);
CheckPrn.Priority :=tpLower;
CheckPrn.Resume;
}

Answer 1

我是石家庄南翟营的,我在13中读的中学.
这段代码,大概意思是:
得到应用程序路径,看路径下是否有DD这个目录,如没有创建DD目录,操作DD目录下的INI文件.
W_5375_Initial(0,$379,-1);这句不知道调用哪个过程,没法解释.
代码写得很垃圾,

Answer 2

i don't want to tell you!