Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Мультимедиа
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.11.2007, 17:01
wildshaman wildshaman вне форума
Прохожий
 
Регистрация: 13.10.2007
Сообщения: 21
Репутация: 10
По умолчанию Перемещение в Listbox

Я делаю плеер. Мне необходимо чтобы при выборе и запуске опрнделенных файлов в проводнике запускаалась моя программа и пути к этим файлам записывались в listbox. И если моя программа уже запущена, то чтобы не запускалось еще одно окно а в это же окно в listbox добавлялись пути. Надеюсь мой вопрос понятен. Заранее спасибо.
Ответить с цитированием
  #2  
Старый 08.11.2007, 06:36
Аватар для moo2k
moo2k moo2k вне форума
Активный
 
Регистрация: 05.12.2006
Адрес: где-то там...
Сообщения: 321
Репутация: 35
По умолчанию

Отмена запуска второй копии твоей программы.
Зайди в 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;
Цитата:
Мне необходимо чтобы при выборе и запуске опрнделенных файлов в проводнике запускаалась моя программа и пути к этим файлам записывались в listbox
Код:
if FileExists(ParamStr(1)) then ListBox1.Items.Add(ParamStr(1));
.
А пути файлов можно узнать через ExtractFileName
__________________
Программирование - это искусство и наш смысл жизни.

Последний раз редактировалось moo2k, 08.11.2007 в 14:36.
Ответить с цитированием
  #3  
Старый 08.11.2007, 14:18
wildshaman wildshaman вне форума
Прохожий
 
Регистрация: 13.10.2007
Сообщения: 21
Репутация: 10
По умолчанию

Спасибо огромное! Возник еще вопрос: Допустим. я в проводнике выбрал сразу несколько файлов. И нажал Откурыть с помощью...моя программа. Мне необходимо чтобы пути ко Все выбранным файлам добавились в Listbox и чтобы все добавлялось в один Listbox в одну форму. и чтобы когда моя программа запущена если я выбрал еще раз несколько фалов то они добалялись в Listbox в уже запущенную программу! Заранее огромное спасибо!
Ответить с цитированием
  #4  
Старый 24.08.2008, 17:18
denis.n.ko denis.n.ko вне форума
Прохожий
 
Регистрация: 24.08.2008
Сообщения: 1
Репутация: 10
По умолчанию

ParamStr(1) - 1 file
ParamStr(2) - 2file
ParamStr(3) - 3file
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:30.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter