![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Я делаю плеер. Мне необходимо чтобы при выборе и запуске опрнделенных файлов в проводнике запускаалась моя программа и пути к этим файлам записывались в 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 |