Autorun, создание Autorun в Дельфи Опции

[volvo]

WinExec('explorer ' + ExtractFilePath(ParamStr(0)), SW_SHOW);

Только учти, что ЭТО будет работать, когда программа будет запускаться с CD, если ты ее запускаешь с харда - будет открыта та папка, из которой производился запуск...

[Dead.MorozZ]

Да я, собственно так и делал. Компилятор пишет что-то вроде не соответствие типов
String & PAnsiChar

[volvo]

Ну, так в чем дело? Типы приводить не умеешь?

  WinExec(pchar('explorer ' + ExtractFilePath(ParamStr(0))), SW_SHOW);

[Dead.MorozZ]

О!! Спасибо большое, все работает!! Так гораздо лучше!!
И все равно не понятно, почему сначала играет музыка, а потом появляется форма.
Можно как-нибудь, чтоб одновременно происходило??

[Atreides]

Я тут хочу создать свой авторан на диск. Как задать кнопку обзора CD, что бы при нажатии открывался CD. Как сделать кнопку Извлечь CD и Поиска, которая при нажатии выводит окно для ввода текста, и ведет поиск по имени файла? Как сделать такое окошко, в котором бы отображалась вся структура (дерево) CD? И при двойном клике, на какую либо папку открывалась папка? Какого размера нужно использовать иконки для присвоения её диску? И где достать архивчик таких картинок?

[Dead.MorozZ]

Как задать кнопку обзора 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 - 2.11.2006 13:03

[Atreides]

WinExec(pchar('explorer ' + ExtractFilePath(ParamStr(0))), SW_SHOW);

MciSendString('Set cdaudio door open', 0,0,form1.handle);

Я пробовал это прописывать, постоянно на них ошибка выпрыгивает.

Сообщение отредактировано: Atreides - 20.04.2006 19:18

[Atreides]

С обзором диска разобрался, а вот извлечение глючит: [Error] Unit1.pas(74): Undeclared identifier: 'MciSendString' and [Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

А как сделать, что бы DirectoryListBox видел архивы и графические расширения? Как можно реализовать кнопку копирования, а если выбранный файл архив то распаковывание во введенную директорию, вводимую в Edit?

[volvo]

извлечение глючит: [Error] Unit1.pas(74): Undeclared identifier: 'MciSendString' and [Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

Uses ...,  MMSystem;

делал? Я же писАл об этом в посте №6...

[Atreides]

О всё теперь работает! Спасибо!

[hardcase]

Господи! DirectoryListBox! Где вы такую древность раскопали. Это компоненты со вкладки Win3.1 - вдумайтесь в это слово! Win 3.1!

Нормальные люди используют Shell контролы для работы с оболочкой: TShellTreeView, TShellListView и др. Они кажется на Samples лежат

[Atreides]

Как добавить в поле типа Memo кнопку прокручивания списка вниз. И как этот скролл называется? Как задать полоске текста типа Label, что бы при достижение текстом конца заданной рамки он автоматически переносился на новую строку, а не продолжал ползти за границу рамки?

[Dead.MorozZ]

Как добавить в поле типа Memo кнопку прокручивания списка вниз. И как этот скролл называется?

Свойство ScrollBars у Memo.

Как задать полоске текста типа Label, что бы при достижение текстом конца заданной рамки он автоматически переносился на новую строку, а не продолжал ползти за границу рамки?

Свойство WordWrap присвой True.

[Atreides]

Как сделать, так что бы окно нельзя было менять в размере, растягивать?

[volvo]

Установить форме BorderStyle в bsSingle

Ну и максимизацию отключить:
BorderIcons -> biMaximize установить в False