Процедура SavePropSettings
var Reg : TRegistry; begin Reg := TRegistry.Create; try Reg.OpenKey(FtpServerKey,TRUE);
Reg.WriteString('DRootDisk',dcbRootDisk.Drive);
finally Reg.CloseKey; end; try Reg.OpenKey(FtpServerKey,TRUE);
Reg.WriteString('DRootDir', dlbRootDir.Directory);
finally Reg.CloseKey; end; try Reg.OpenKey(FtpServerKey,TRUE);
case rgTransfer.ItemIndex of 0 :Reg.WriteString('DTransferMode', FtpTransferStr[STREAM]);
1 :Reg.WriteString('DTransferMode', FtpTransferStr[BLOCK]);
2 :Reg.WriteString('DTransferMode', FtpTransferStr[COMPRESSED]);
end; finally Reg.CloseKey; end; try Reg.OpenKey(FtpServerKey,TRUE);
case rgFileStructure.ItemIndex of 0 :Reg.WriteString('DFileStructure', FtpFileStructStr[NOREC]);
1 :Reg.WriteString('DFileStructure', FtpFileStructStr[REC]);
2 :Reg.WriteString('DFileStructure', FtpFileStructStr[PAGE]);
end; finally Reg.CloseKey; end; Reg.Free; end;
