Можно ли?

Вверх ↑

Форумы Помощь по пакетуМожно ли? ← Ctrl12Ctrl →

Этот топик читают: Гость

Гость

Ответов: 17029

Рейтинг: 0

#1: 2008-07-13 22:51:22 правка | ЛС | профиль | цитата

Редактировалось 2 раз(а), последний 2025-01-10 18:46:39

карма: 0

Ответов: 3655

Рейтинг: 69

#2: 2008-07-14 00:38:18 ЛС | профиль | цитата

Вася писал(а):

Скажите, а реально ли на Hiasm сделать что-то наподобие справочных правовых систем типа Гарант или КонсультантПлюс?

Конечно реально.

карма: 0

Голосовали:

Валерий

Ответов: 1397

Рейтинг: 50

#3: 2008-07-14 08:10:54 ЛС | профиль | цитата

Наверное проще задачи для Hiasm не найти.

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Ответов: 1891

Рейтинг: 110

#4: 2008-07-16 01:46:58 ЛС | профиль | цитата

Валерий, писал(а):

Наверное проще задачи для Hiasm не найти.

Да, не сказал бы, что проще задачи не найти.

карма: 0

%time%

Ответов: 16884

Рейтинг: 1239

#5: 2008-07-17 17:44:24 ЛС | профиль | цитата

Alexbootch писал(а):

Да, не сказал бы, что проще задачи не найти.

наверное легче сделать chm-файл (без HiAsm).

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 902

Рейтинг: 27

#6: 2008-07-17 23:41:26 ЛС | профиль | цитата

Подскажите пожалуйста.
Как получить путь к папке с двойными слэшами?

Add(MainForm,13480139,161,168)
{
 Left=20
 Top=105
 Width=295
 link(onCreate,13490799:doTrim,[])
}
Add(Dir,2043444,267,126)
{
}
Add(Message,12433927,322,182)
{
}
Add(Trim,13490799,266,182)
{
 Char=""
 link(onTrim,12433927:doMessage,[])
 link(Text,2043444:CurrentDir,[(272,170)(273,170)])
}

пример:
папка\папка\папка

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Разработчик

Ответов: 26214

Рейтинг: 2138

#7: 2008-07-17 23:55:03 ЛС | профиль | цитата

juk, может вот так поможет



Add(MainForm,13480139,392,315)
{
 Left=20
 Top=105
 Width=295
 link(onCreate,13490799:doTrim,[])
}
Add(Dir,2043444,455,273)
{
}
Add(Message,12433927,560,329)
{
}
Add(Trim,13490799,455,329)
{
 Char=""
 link(onTrim,13010743:doReplace,[])
 link(Text,2043444:CurrentDir,[(461,317)(461,317)])
}
Add(Replace,13010743,504,329)
{
 SubStr="\"
 DestStr=""
 link(onReplace,12433927:doMessage,[])
}

карма: 22

Голосовали: juk

Ответов: 902

Рейтинг: 27

#8: 2008-07-18 00:02:23 ЛС | профиль | цитата

nesco,
К сожалению не помогло.
А у тебя слэши в компоненте репласе не перепутанны?
И всё равно не получается, я так уже пробовал.
Но плюс однако ты получиш!

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Разработчик

Ответов: 26214

Рейтинг: 2138

#9: 2008-07-18 00:46:17 ЛС | профиль | цитата

juk, откуда взялся такой путь, из твоей схемы

У меня нет двойных слэшей в MsgBox'e, у меня вообще таких путей нет

карма: 22

Голосовали:

juk

Ответов: 902

Рейтинг: 27

#10: 2008-07-18 01:55:15 ЛС | профиль | цитата

nesco,
Это я просто пример привёл, что путь папки мне нужен с двойными слэшами, а не с одинарными.
Вот так:
code_2250.txt

Получилось, но может можно както уменьшить количество компонентов?

[size=-2]------ Добавлено в 01:55

у меня вообще таких путей нет

А путь будет тот, где сохраненна программа.

карма: 1

Время верстки: %cr_time% Текущее время: %time%

файлы: 1

code_2250.txt [1.7KB] [218]

Разработчик

Ответов: 26214

Рейтинг: 2138

#11: 2008-07-18 01:59:19 ЛС | профиль | цитата

Мдяяя... уж

А вот так не проще



Add(MainForm,13480139,364,287)
{
 Left=20
 Top=105
 Width=295
 link(onCreate,13490799:doTrim,[])
}
Add(Dir,2043444,427,245)
{
}
Add(Message,12433927,532,301)
{
}
Add(Trim,13490799,427,301)
{
 Char=""
 link(onTrim,13010743:doReplace,[])
 link(Text,2043444:CurrentDir,[])
}
Add(Replace,13010743,476,301)
{
 SubStr=""
 DestStr="\"
 link(onReplace,12433927:doMessage,[])
}

карма: 22

Голосовали: juk

Ответов: 902

Рейтинг: 27

#12: 2008-07-18 02:07:21 ЛС | профиль | цитата

nesco,
Блин!!!- Конечно проще!
Это мне и надо было!
А я целый огород намутил.
Пошол на новый форум тебе крест ставить

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Разработчик

Ответов: 26214

Рейтинг: 2138

#13: 2008-07-18 02:08:47 ЛС | профиль | цитата

juk, мне сначало показалось, что тебе надо не добавить, а удалить двойные слэши.

карма: 22

Голосовали:

juk

Ответов: 902

Рейтинг: 27

#14: 2008-07-18 02:13:13 ЛС | профиль | цитата

Да,-это я так объясняю суперски!
Иногда сам не понимаю что хотел.

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 902

Рейтинг: 27

#15: 2008-07-21 15:29:50 ЛС | профиль | цитата

Подскажите пожалуйста,
можно ли сделать это в хиасм?

Вопрос: 
как заставить Рабочий Стола Windows обновится? 
Ответ:
См. пример. 
Пример:
             procedure TForm1.Button1Click(Sender: TObject); 

             begin 

               SendMessage(FindWindow('Progman', 'Program Manager'), 

                           WM_COMMAND, 

                           $A065, 

                           0); 

             end;

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Форумы Помощь по пакетуМожно ли? ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)