procedure TfmMain.Login;
var
si:STARTUPINFO;
pi:PROCESS_INFORMATION;
CommandLine:String;
ProcessFileName:string;
begin
if (Trim(edtLoginName.Text)='') or (Trim(edtPassword.Text)='') then
begin
MsgBoxError(Handle,'請輸入使用者名稱及密碼!');
Exit;
end;
if not SemsClientApp.LoginManager.ValidateLogin(edtLoginName.Text,edtPassword.Text) then
begin
MsgBoxError(Handle,'使用者名稱或密碼錯誤,請重新輸入!');
Exit;
end;
try
FillChar(si,SizeOf(si),0);
FillChar(pi,SizeOf(pi),0);
si.cb:=SizeOf(si);
ProcessFileName:=SemsClientApp.AppPath+'\sems.bin';
CommandLine:='"'+ProcessFileName+'" /S"'+Application.ExeName+'" /L"'+edtLoginName.Text+'" /P"'+edtPassword.Text+'"';
if CreateProcess(PAnsiChar(ProcessFileName),PAnsiChar(CommandLine),nil,nil,False,0,nil,nil,si,pi) then
Close;
except
MsgBoxError(Handle,'啟動程式失敗!');
end;
end
