![](https://csdnimg.cn/release/download_crawler_static/87076532/bg9.jpg)
begin
;
end;
procedure (Sender: TObject);
begin
Inifile:=(extractfilepath(paramstr(0))+'') ;
if fileexists(extractfilepath(paramstr(0))+'') then
begin
:=('SERVER','SERVER NAME','');
:=('SERVER','USER NAME','');
end;
end;
procedure (Sender: TObject; var Action: TCloseAction);
begin
if not fileexists(extractfilepath(paramstr(0))+'') then
Inifile:=(extractfilepath(paramstr(0))+'') ;
('SERVER','SERVER NAME',);
('SERVER','USER NAME',);
;
end;
End.