|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перемещение в Listbox
Я делаю плеер. Мне необходимо чтобы при выборе и запуске опрнделенных файлов в проводнике запускаалась моя программа и пути к этим файлам записывались в listbox. И если моя программа уже запущена, то чтобы не запускалось еще одно окно а в это же окно в listbox добавлялись пути. Надеюсь мой вопрос понятен. Заранее спасибо.
|
#2
|
||||
|
||||
Отмена запуска второй копии твоей программы.
Зайди в Project->>View Source и пропиши там: Код:
в uses Forms, Windows, SysUtils; ... const MemFileSize = 1024; MemFileName = 'Имя твоей проги полностью'; var MemHnd : HWND; {$R *.RES} begin MemHnd := CreateFileMapping(HWND($FFFFFFFF), nil, PAGE_READWRITE, 0, MemFileSize, MemFileName); if GetLastError <> ERROR_ALREADY_EXISTS then begin Application.Initialize end else begin Application.MessageBox('Данная программа уже выполняется.', 'Ошибка'); halt; end; Цитата:
Код:
if FileExists(ParamStr(1)) then ListBox1.Items.Add(ParamStr(1)); А пути файлов можно узнать через ExtractFileName Программирование - это искусство и наш смысл жизни. Последний раз редактировалось moo2k, 08.11.2007 в 14:36. |
#3
|
|||
|
|||
Спасибо огромное! Возник еще вопрос: Допустим. я в проводнике выбрал сразу несколько файлов. И нажал Откурыть с помощью...моя программа. Мне необходимо чтобы пути ко Все выбранным файлам добавились в Listbox и чтобы все добавлялось в один Listbox в одну форму. и чтобы когда моя программа запущена если я выбрал еще раз несколько фалов то они добалялись в Listbox в уже запущенную программу! Заранее огромное спасибо!
|
#4
|
|||
|
|||
ParamStr(1) - 1 file
ParamStr(2) - 2file ParamStr(3) - 3file |