Страница 1 из 1

Приемы Dark Basic

Добавлено: Вс сен 01, 2013 1:19 am
blackstrip
Полазил по даркбейсику - многое изменилось с тех пор, как я писал в нем лет 8 назад. Старые программы даже не перекомпилируются) Поэтому эта тема будет посвящена разным хитростям (и просто упрощениям) для интересующихся даркбейсиком.

Первый прием: нет команды (вроде бы), через которую можно узнать где лежит exe-шник, но есть appname$(), которая выдает полный путь+имя exeшника. И нет команды извлечения пути из строки типа дельфийского ExtractFilePath.

Получить путь до экзешника можно через обрубание результата appname$() до последнего слеша:
exepath$ = LEFT$(appname$(),FIND LAST CHAR$(appname$(),"\"))

Результат, например, такой выдает: "c:\proga\", на конце слеш.

Если без слеша на конце хочется, то аналогичный прием с минус единицей:
exepath$ = LEFT$(appname$(),FIND LAST CHAR$(appname$(),"\")-1)

Re: Приемы Dark Basic

Добавлено: Вс сен 01, 2013 1:46 am
blackstrip
Как сделать разрешение экрана такое же, как и текущее, растянуть прогу на весь экран, скрыть указатель мыши, вырубить выход по ESC (все это обычно делается в начале программы):

sw = desktop width()
sh = desktop height()
set display mode sw,sh,screen depth()
set window off
hide mouse
disable escapekey


значения ширины и высоты экрана sw и sh можно еще потом использовать ниже в коде.