WinExec('explorer ' + ExtractFilePath(ParamStr(0)), SW_SHOW);
Только учти, что ЭТО будет работать, когда программа будет запускаться с CD, если ты ее запускаешь с харда - будет открыта та папка, из которой производился запуск...
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Autorun, создание Autorun в Дельфи |
volvo |
Сообщение
#21
|
Гость |
WinExec('explorer ' + ExtractFilePath(ParamStr(0)), SW_SHOW); Только учти, что ЭТО будет работать, когда программа будет запускаться с CD, если ты ее запускаешь с харда - будет открыта та папка, из которой производился запуск... |
Dead.MorozZ |
Сообщение
#22
|
Пионер Группа: Пользователи Сообщений: 108 Пол: Мужской Реальное имя: Георгий Репутация: 0 |
Да я, собственно так и делал. Компилятор пишет что-то вроде не соответствие типов
String & PAnsiChar -------------------- Минус - это уже половина плюса, а плюс порой - целых два минуса...
|
volvo |
Сообщение
#23
|
Гость |
Ну, так в чем дело? Типы приводить не умеешь?
WinExec(pchar('explorer ' + ExtractFilePath(ParamStr(0))), SW_SHOW); |
Dead.MorozZ |
Сообщение
#24
|
Пионер Группа: Пользователи Сообщений: 108 Пол: Мужской Реальное имя: Георгий Репутация: 0 |
О!! Спасибо большое, все работает!! Так гораздо лучше!!
И все равно не понятно, почему сначала играет музыка, а потом появляется форма. Можно как-нибудь, чтоб одновременно происходило?? -------------------- Минус - это уже половина плюса, а плюс порой - целых два минуса...
|
Atreides |
Сообщение
#25
|
Ветеран Броуновского Движения Группа: Пользователи Сообщений: 281 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
Я тут хочу создать свой авторан на диск. Как задать кнопку обзора CD, что бы при нажатии открывался CD. Как сделать кнопку Извлечь CD и Поиска, которая при нажатии выводит окно для ввода текста, и ведет поиск по имени файла? Как сделать такое окошко, в котором бы отображалась вся структура (дерево) CD? И при двойном клике, на какую либо папку открывалась папка? Какого размера нужно использовать иконки для присвоения её диску? И где достать архивчик таких картинок?
-------------------- Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
|
Dead.MorozZ |
Сообщение
#26
|
Пионер Группа: Пользователи Сообщений: 108 Пол: Мужской Реальное имя: Георгий Репутация: 0 |
Цитата Как задать кнопку обзора CD, что бы при нажатии открывался CD volvo пишет: Цитата WinExec(pchar('explorer ' + ExtractFilePath(ParamStr(0))), SW_SHOW); Цитата Как сделать кнопку Извлечь CD Цитата MciSendString('Set cdaudio door open', 0,0,form1.handle); Цитата Как сделать такое окошко, в котором бы отображалась вся структура (дерево) CD? Можно при помощи DirectoryListBox на вкладке Win3.1 Цитата Какого размера нужно использовать иконки для присвоения её диску? И где достать архивчик таких картинок? Размером 32 x 32 или 72 x 72. Можно нарисовать самому в Delphi или Painte Сообщение отредактировано: volvo - -------------------- Минус - это уже половина плюса, а плюс порой - целых два минуса...
|
Atreides |
Сообщение
#27
|
Ветеран Броуновского Движения Группа: Пользователи Сообщений: 281 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
Цитата WinExec(pchar('explorer ' + ExtractFilePath(ParamStr(0))), SW_SHOW); Цитата MciSendString('Set cdaudio door open', 0,0,form1.handle); Я пробовал это прописывать, постоянно на них ошибка выпрыгивает. Сообщение отредактировано: Atreides - -------------------- Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
|
Atreides |
Сообщение
#28
|
Ветеран Броуновского Движения Группа: Пользователи Сообщений: 281 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
С обзором диска разобрался, а вот извлечение глючит: [Error] Unit1.pas(74): Undeclared identifier: 'MciSendString' and [Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'
А как сделать, что бы DirectoryListBox видел архивы и графические расширения? Как можно реализовать кнопку копирования, а если выбранный файл архив то распаковывание во введенную директорию, вводимую в Edit? -------------------- Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
|
volvo |
Сообщение
#29
|
Гость |
Цитата(Atreides @ 20.04.2006 20:17) извлечение глючит: [Error] Unit1.pas(74): Undeclared identifier: 'MciSendString' and [Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas' Uses ..., MMSystem; делал? Я же писАл об этом в посте №6... |
Atreides |
Сообщение
#30
|
Ветеран Броуновского Движения Группа: Пользователи Сообщений: 281 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
О всё теперь работает! Спасибо!
-------------------- Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
|
hardcase |
Сообщение
#31
|
code warrior Группа: Пользователи Сообщений: 484 Пол: Мужской Реальное имя: Славен Репутация: 8 |
Господи! DirectoryListBox! Где вы такую древность раскопали. Это компоненты со вкладки Win3.1 - вдумайтесь в это слово! Win 3.1!
Нормальные люди используют Shell контролы для работы с оболочкой: TShellTreeView, TShellListView и др. Они кажется на Samples лежат -------------------- ИзВ ин ИтЕ зА нЕ рОв НЫй П оч ЕРк
|
Atreides |
Сообщение
#32
|
Ветеран Броуновского Движения Группа: Пользователи Сообщений: 281 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
Как добавить в поле типа Memo кнопку прокручивания списка вниз. И как этот скролл называется? Как задать полоске текста типа Label, что бы при достижение текстом конца заданной рамки он автоматически переносился на новую строку, а не продолжал ползти за границу рамки?
-------------------- Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
|
Dead.MorozZ |
Сообщение
#33
|
Пионер Группа: Пользователи Сообщений: 108 Пол: Мужской Реальное имя: Георгий Репутация: 0 |
Цитата Как добавить в поле типа Memo кнопку прокручивания списка вниз. И как этот скролл называется? Свойство ScrollBars у Memo. Цитата Как задать полоске текста типа Label, что бы при достижение текстом конца заданной рамки он автоматически переносился на новую строку, а не продолжал ползти за границу рамки? Свойство WordWrap присвой True. -------------------- Минус - это уже половина плюса, а плюс порой - целых два минуса...
|
Atreides |
Сообщение
#34
|
Ветеран Броуновского Движения Группа: Пользователи Сообщений: 281 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
Как сделать, так что бы окно нельзя было менять в размере, растягивать?
-------------------- Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
|
volvo |
Сообщение
#35
|
Гость |
Установить форме BorderStyle в bsSingle
Ну и максимизацию отключить: BorderIcons -> biMaximize установить в False |
Текстовая версия | 19.04.2024 5:13 |