denisska80
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
необходимо проверить, правильно ли пользователь приконнектился к БД. Я пытаюсь подконнеутиться, если получается-создаю текстовой файл. Затем проверяю, если он существует, значит все введено правильно. Проблема следующая в отладчике по шагам все работает идеально. Стоит запустить инсталлятор без отладчика, то праильные данные он воспринимает через раз. Т.е. периодически выскакивает "Не тот пароль".
В чем может быть проблема?
if (CurPage=102) then
begin
if Exec(DataDirPage.Values[0]+'\sqlplus.exe', PageLogon.Values[0]+'/'+PageLogon.Values[1]+'@'+PageLogon.Values[2]+' @c:/d.sql', '', SW_HIDE, ewNoWait, ResultCode)=false then
begin
Exec(ExpandConstant('{sys}\taskkill.exe'), '/F /IM PLUS80.exe', '', SW_HIDE,ewNoWait, ResultCode);
MsgBox('Не тот пароль', mbError, mb_OK);
Result:= False;
end
else
begin
if fileexists('c:\proba.txt') then
begin
Result:=True;
deletefile('c:\proba.txt');
end
else
begin
Result:=False;
MsgBox('Не тот пароль.', mbError, mb_OK);
end;
Exec(ExpandConstant('{sys}\taskkill.exe'), '/F /IM PLUS80.exe', '', SW_HIDE,ewNoWait, ResultCode);
end;
end; |
