Spin down to find the

szBackupName = szBatchName + ".ADK";

ParsePath(szBatchFile, szBatchFile, FILENAME);

OpenFileMode(FILE_MODE_NORMAL);

nReturn = OpenFile (nvHandle, SRCDIR, szBatchFile);

if (nReturn = 0 ) then

// Spin down to find the non-blank last line in

// the file

while (nReturn = 0 )

nReturn = GetLine(nvHandle, szTestLine);

if (StrLength(szTestLine) > 0) then

szCheckForPathLine = szTestLine;

endif;

endwhile;

CloseFile(nvHandle);

// We now have the last text entry in the batch

// file.

if (StrFind(szCheckForPathLine,szSharedPath) < 0) then

Disable(LOGGING);

// Backup up the original

nReturn = CopyFile (szBatchFile, szBackupName);

Enable(LOGGING);

if (nReturn = 0 ) then

OpenFileMode (FILE_MODE_APPEND);

OpenFile(nvHandle,SRCDIR,szBatchFile);

WriteLine(nvHandle,"");

WriteLine(nvHandle,szOutput);

CloseFile(nvHandle);

bNeedReboot = TRUE;

endif;

endif;

endif;

endif;

VarRestore(SRCTARGETDIR);

end;


Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---