Отмена запуска второй копии твоей программы.
Зайди в 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