|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
13.12.2009, 11:03 | #1 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Скопировать SetCurrentDirectory к себе в модуль
Не очень хочется подключать Windows (итак уже до 57 кб разросся) поэтому хочу извлечь только процедуру SetCurrentDirectory вот, как она описывается там:
Код:
Код:
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ Последний раз редактировалось Alex Cones; 13.12.2009 в 11:25. |
13.12.2009, 11:57 | #2 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,742
|
делаю обычно так:
Код:
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
13.12.2009, 12:16 | #3 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Огромное спасибо. А все-таки, почему в SysUtils не было указано формата библиотеки? Его можно опускать?
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
13.12.2009, 12:32 | #4 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,742
|
полное описание функи либы содержится все в то-же модуле windows, когда в своем проекте жмешь левой кнопкой мыши с зажатым Ctr на функе SetCurrentDirectory оно в модуле windows перейдет на function SetCurrentDirectory; external kernel32 name 'SetCurrentDirectoryA';, уже тут жмакаешь на SetCurrentDirectory и оно выдает параметры вызова- function SetCurrentDirectory(lpPathName: PChar): BOOL; stdcall;
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
13.12.2009, 12:44 | #5 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Спасибо, с вызовом разобрался, но выводит ошибку Invalig Typecast:
Код:
Пробовал без PAnsiChar - несоответствие типов PAnsiChar и ShortString. Пробовал PChar -тот же typecast
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ Последний раз редактировалось Alex Cones; 13.12.2009 в 12:48. |
13.12.2009, 13:04 | #6 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,742
|
Код:
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
13.12.2009, 13:05 | #7 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Т.е. ограничивать нельзя? Или попробовать через промежуточную переменную?
Сделал вот так: пашет. Еще раз спасибо. Код:
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
13.12.2009, 13:07 | #8 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,742
|
а какой смысл тогда в промежуточной переменной, если изначально можно задать требуемый тип, экономии не будет.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
13.12.2009, 13:16 | #9 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Ну... Во-первых BufSRG должна освободить помещение сразу после выхода из процедуры (кажись...), а во-вторых мне крайне необходимо, чтобы SRG была ограниченной в 255 символов, т.к. я использую её в своей системе скриптов (Костяк составил, теперь, как говорит Mihali4 "наращиваю мясо"). SRG так и расшифровывается - StringReGister. Есть у меня еще FileReGister, BoolReGister и IntegerReGister (к слову говоря, являющийся SmallInt`ом)
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
13.12.2009, 13:21 | #10 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,742
|
тогда сделай так:
Код:
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ничего себе... 3D шутер... | mihali4 | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 91 | 21.05.2011 13:29 |
Сам себе хостинг | Kukkk | Свободное общение | 8 | 05.10.2009 10:03 |
Службы останавливаются сами по себе | Ronni10 | Операционные системы общие вопросы | 3 | 01.10.2009 17:20 |
Несколько слов о себе../A few words are about itself.. | Mr.Qwerty | Свободное общение | 3 | 16.07.2009 20:31 |