70 lines
1.6 KiB
Plaintext
70 lines
1.6 KiB
Plaintext
unit Svrutil;
|
|
|
|
interface
|
|
|
|
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
|
|
StdCtrls;
|
|
|
|
type
|
|
TBtnRightDlg1 = class(TForm)
|
|
OKBtn: TBitBtn;
|
|
CancelBtn: TBitBtn;
|
|
GroupBox1: TGroupBox;
|
|
RadioButton1: TRadioButton;
|
|
RadioButton2: TRadioButton;
|
|
RadioButton3: TRadioButton;
|
|
procedure OKBtnClick(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
BtnRightDlg1: TBtnRightDlg1;
|
|
|
|
implementation
|
|
|
|
Uses StartFrm, NWServ, Dialogs, sendMsg;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TBtnRightDlg1.OKBtnClick(Sender: TObject);
|
|
var CheckMe: Boolean;
|
|
begin
|
|
if RadioButton1.Checked=TRUE then
|
|
begin
|
|
if DownFileServer(FALSE)=FALSE then
|
|
if MessageDlg('Server reports open files, force server down?',
|
|
mtConfirmation, [mbYes, mbNo], 0)=mrYES then DownFileServer(TRUE);
|
|
end;
|
|
if RadioButton2.Checked then
|
|
begin
|
|
BtnBottomDlg4.ShowModal;
|
|
end;
|
|
if RadioButton3.Checked then
|
|
begin
|
|
{Enable / Disable Logins}
|
|
if GetFileServerLoginStatus(CheckME)=FALSE then MessageDLg('Can''t talk to server', mtWarning, [mbOK], 0)
|
|
else begin
|
|
if CheckMe=FALSE then
|
|
begin
|
|
EnableFileServerLogin;
|
|
MessageDlg('Login Enabled', mtInformation, [mbOK], 0);
|
|
end else
|
|
begin
|
|
DisableFileServerLogin;
|
|
MessageDlg('Login Diabled', mtInformation, [mbOK], 0);
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TBtnRightDlg1.FormShow(Sender: TObject);
|
|
begin
|
|
Caption:='Do what to '+ Form1.Panel1.Caption + '?';
|
|
end;
|
|
|
|
end.
|