program aaa<br>interface<br>uses<br> sysUnit, FileCtrl, Froms, <br> UserDM,.....<br><br>imploment<br> Application.Run;<br> if ParamCount <> 3 then begin<br> if FileExists(Paramstr(1)) and DirectoryExists(Paramstr(2)) then begin<br> Application.createFrom(TUserDM, UserDm);<br> UserDm.FileName := Paramstr(1);<br> UserDM.SavePath := Paramstr(2);<br> end;<br> end;<br> Application.Terimente