Полазил по даркбейсику - многое изменилось с тех пор, как я писал в нем лет 8 назад. Старые программы даже не перекомпилируются) Поэтому эта тема будет посвящена разным хитростям (и просто упрощениям) для интересующихся даркбейсиком.
Первый прием: нет команды (вроде бы), через которую можно узнать где лежит exe-шник, но есть appname$(), которая выдает полный путь+имя exeшника. И нет команды извлечения пути из строки типа дельфийского ExtractFilePath.
Получить путь до экзешника можно через обрубание результата appname$() до последнего слеша:
exepath$ = LEFT$(appname$(),FIND LAST CHAR$(appname$(),"\"))
Результат, например, такой выдает: "c:\proga\", на конце слеш.
Если без слеша на конце хочется, то аналогичный прием с минус единицей:
exepath$ = LEFT$(appname$(),FIND LAST CHAR$(appname$(),"\")-1)
Приемы Dark Basic
- blackstrip
- Админ
- Сообщения: 1187
- Зарегистрирован: Ср янв 02, 2008 1:42 pm
- Откуда: Подольск
- Контактная информация:
- blackstrip
- Админ
- Сообщения: 1187
- Зарегистрирован: Ср янв 02, 2008 1:42 pm
- Откуда: Подольск
- Контактная информация:
Re: Приемы Dark Basic
Как сделать разрешение экрана такое же, как и текущее, растянуть прогу на весь экран, скрыть указатель мыши, вырубить выход по ESC (все это обычно делается в начале программы):
sw = desktop width()
sh = desktop height()
set display mode sw,sh,screen depth()
set window off
hide mouse
disable escapekey
значения ширины и высоты экрана sw и sh можно еще потом использовать ниже в коде.
sw = desktop width()
sh = desktop height()
set display mode sw,sh,screen depth()
set window off
hide mouse
disable escapekey
значения ширины и высоты экрана sw и sh можно еще потом использовать ниже в коде.
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 2 гостя