powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как в FPD26 включить в проект программу DOS (ARJ.EXE)?
6 сообщений из 6, страница 1 из 1
Как в FPD26 включить в проект программу DOS (ARJ.EXE)?
    #33361461
lvugs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как в FPD26 включить в проект программу DOS (например, ARJ.EXE)?
...
Рейтинг: 0 / 0
Как в FPD26 включить в проект программу DOS (ARJ.EXE)?
    #33362277
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня сработала такая схема - включаем ARJ.EXE в проект и потом запускаем такой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
m_file=FOpen('arj.exe')
m_out=FCreate('c:\arj.exe')
IF m_file >  0 
   DO WHILE .not.FEOF(m_file)
      m_str=FRead(m_file,  1000 )
      =FWrite(m_out, m_str)
   ENDDO
ENDIF
=FClose(m_file)
=FClose(m_out)
...
Рейтинг: 0 / 0
Как в FPD26 включить в проект программу DOS (ARJ.EXE)?
    #33362285
_иван
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я тебе предлагаю
создать дбф-ку, с одним мемо полем,
например таблица arj.MemoFN
записать в нее ARJ.EXE
SET NOCPTRANS TO MemoFN
APPEND MEMO MemoFN FROM ARJ.EXE
включить ее в экзешник,чтоб никто не видел :-))))
(кстати так можно писать и длл-ки и другие экзешники
и активиксы итд, чтобы злые из отдела "К" не нашли,
как мы приворовываем например консольный рар,
итд.. :-))))) )
А Ваще чем меньше экзшников и прочей
лабуды в папке программы-
это ж как то больше душу греет,
да и ведь эти файлы тебе не надо изменять,
потому можешь смело включить их в экзешник.

Затем пришло время использовать
делаем так:
Use arj.MemoFN Again In 0 Shared
SET NOCPTRANS TO MemoFN
ARJname =sys(2023)+'\'+sys(2015)+'.tmp'
If Not File(ARJname)
......
EndIf
copy memo MemoFN to (ARJname)

и все можешь пускать в работу
файл "хрензнаеткакзовут.tmp",
а работать он у тебя будет как
ARJ.EXE
...
Рейтинг: 0 / 0
Как в FPD26 включить в проект программу DOS (ARJ.EXE)?
    #33363833
lvugs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо - Burn! Всё нормально получилось!
...
Рейтинг: 0 / 0
Как в FPD26 включить в проект программу DOS (ARJ.EXE)?
    #33364129
XAndy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
авторm_file=FOpen('arj.exe')
m_out=FCreate('c:\arj.exe')
IF m_file > 0
DO WHILE .not.FEOF(m_file)
m_str=FRead(m_file, 1000)
=FWrite(m_out, m_str)
ENDDO
ENDIF
=FClose(m_file)
=FClose(m_out)

Зачем такие сложности?
Включаем файл в проект, а затем
Код: plaintext
1.
erase arj.exe
copy file arj.exe to arj.exe
получаем в текущей директории arj.exe
...
Рейтинг: 0 / 0
Как в FPD26 включить в проект программу DOS (ARJ.EXE)?
    #33364377
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Интересно. Ваще вытягивание файла, включеного в проект, в фоксе процедура интересная.
А сложности началиь потому что для меня эта ветка началась на FoxClub-е - ктото предложил вариант с низкоуровневыми функциями. Я его проверил. Но к этому времени ФоксКлуб упал. Вот я сюда и ответил
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как в FPD26 включить в проект программу DOS (ARJ.EXE)?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]