![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Скрыть button
Mariya © (2007-10-10 07:26:00)Подскажите, пожалуйста, у меня есть
if Sender is TMyButton then
a:=ShellExecute(handle, nil, Pchar((Sender as TMyButton).Prog), NiL, NiL, SW_SHOWNORMAL);
if a <>42 then
MessageDlg('Такой программы не существует!', mtInformation, [mbOk], 0);
Смогла написать, что если нет екзешника, выдает об этом сообщение, а можно при создании формы (при запуске) как бы проверить имеются ли екзешники, которые в ини Prog=... написаны, если нет, то просто не создавать эту кнопку. Пыталась в онкриейт написать if a <>42 then btn[i].Visible:=False; не верно.
Mariya (2007-10-10 14:21:00) [1]
> Больно слышать
Может читать менее больно?
Игорь Шевченко (2007-10-10 13:55:00) [2]
> Undeclared identifier 'IncludeTralingPathDelimiter'.
Больно слышать
Kolan (2007-10-10 13:23:00) [3]Когда начинешь что-то писать нажми Ctrl+Space появится подсказка(Code insite)
Kolan (2007-10-10 13:22:00) [4]> [30] Mariya (10.10.07 13:17)
> Undeclared identifier 'IncludeTralingPathDelimiter'.
IncludeTra ilingPathDelimiter
Mariya (2007-10-10 13:17:00) [5]Undeclared identifier 'IncludeTralingPathDelimiter'.
Mariya (2007-10-10 13:12:00) [6]Удалено модератором
Игорь Шевченко (2007-10-10 13:12:00) [7]Mariya (10.10.07 13:03) [26]
Обучение предполагает поиск педагога и оплату его усилий по вколачиванию требуемых знаний в пустую голову.
Читать наизусть до полного и окончательного просветления:
http://ln.com.ua/~openxs/articles/smart-questions-ru.html
Dib@zol (2007-10-10 13:05:00) [8]> Игорь это кто?
Осмелюсь предположить - который Шевченко?
> Вы же все уже взрослые,
Неправда.
Mariya (2007-10-10 13:03:00) [9]
> НАЙМИТЕ УЖЕ ПРОГРАММИСТА!!!
Я пытаюсь им стать, Вы же все уже взрослые, имеете хороший опыт во всем это, а я около месяца назад начала изучать Дельфи, и то с Вашей помощью много чего мне стало понятно. Может через пару лет буду как и Вы людям помогать...
Mariya (2007-10-10 12:51:00) [10]
> бабки заплатили
ошибаетесь! :)
Игорь это кто?
Anatoly Podgoretsky (2007-10-10 12:20:00) [11]> Kolan (10.10.2007 11:35:23) [23]
Ну ей же нужен результат. За это время ей уже такие бабки заплатили, Игорь бы дешевле обошелся.
Kolan (2007-10-10 11:35:00) [12]> Мария найми Игоря на работу
Из пушки по воробьям :)
Anatoly Podgoretsky (2007-10-10 11:34:00) [13]Взлетит, не взлетит?
Мария найми Игоря на работу, конечно дорого, но и результат будет.
clickmaker (2007-10-10 11:24:00) [14]
> [18] ASoft (10.10.07 10:32)
> ну, все, хана.. Маша сейчас в реестр полезет-)))
или утонет, или плавать научится )
Leonid Troyanovsky (2007-10-10 11:17:00) [15]
> Игорь Шевченко © (10.10.07 10:40) [19]
> НАЙМИТЕ УЖЕ ПРОГРАММИСТА!!!
Не поможет :)
С консерваторией там чего-то не то,
около десятка уже, похоже, сбежали.
Ну, а задание просто генеральское: вместо того,
чтобы вытянуть на стол (меню) десяток ярлыков -
подать сюда навигатор, не менее.
--
Regards, LVT.
Игорь Шевченко (2007-10-10 10:40:00) [16]НАЙМИТЕ УЖЕ ПРОГРАММИСТА!!!
ASoft (2007-10-10 10:32:00) [17]ну, все, хана.. Маша сейчас в реестр полезет-)))
clickmaker (2007-10-10 10:28:00) [18]
> [15] Mariya (10.10.07 10:22)
как вариант, но не на все случаи
var
Reg: TRegistry;
Reg := TRegistry.Create(KEY_READ);
try
Reg.RootKey := 'HKEY_LOCAL_MACHINE';
if Reg.KeyExists('SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths' + ExeName) then
// существует
finally
Reg.Free;
end;
Leonid Troyanovsky (2007-10-10 10:27:00) [19]
> Mariya (10.10.07 10:22) [15]
> Не обязательно в програм файлс, может лежать в любом месте
> на жестком диске, в любой папке
Ну, и славно.
Файлы конфигурации на то и даны, чтобы настраивать, в том числе,
пути поиска, имена файлов и т.д.
--
Regards, LVT.
Mariya (2007-10-10 10:22:00) [20]Не обязательно в програм файлс, может лежать в любом месте на жестком диске, в любой папке