Как перетащить файлы из проводника в мою программу TMainForm = class(TForm) ... private procedure WMDROPFILES(var Message: TWMDROPFILES); message WM_DROPFILES; procedure ProcessFile(Filename: string); end;
procedure TMainForm.FormCreate(Sender: TObject); begin DragAcceptFiles(MainForm.Handle, TRUE); // enable drag&drop end;
procedure TMainForm.ProcessFile(Filename: string); begin // any actions end;
procedure TMainForm.WMDROPFILES(var Message: TWMDROPFILES); var Files : Longint; I : Longint; Buffer : array[0..MAX_PATH] of Char; begin Files := DragQueryFile(Message.Drop,$FFFFFFFF,nil,0); // Get count of files for I := 0 to Files - 1 do begin DragQueryFile(Message.Drop,I,@Buffer,SizeOf(Buffer)); // Get N file ProcessFile(Buffer);
// do something with the file end; DragFinish(Message.Drop); // end !
drag loop end;
BASIC to ASM
Всем Hi! Есть BASIC-block. Кто желает мне помочь, сделайте, пожалуйста, из него assenblerную процедуру. 10 OPEN "COM1:...
Изменение стандартного компонента.
Как можно изменить компонент TCheckListBox, чтобы вместо стандартного CheckBox (галки в квадрате), менялось собственное ...
Сортировка
Подскажите, как отсортировать данные в DBGride по алфавиту?
DLL & Threads
Может знает кто, помогите. Проблема такая - в DLL создается поток в котором происходит запрос к БД. Сигнал готовности - ...
Создание новой БД! ПОМОГИТЕ!!!
Народ!!!! надо так чтобы при указании программе директории программа создавала новые таблицы и все индексы к ним (для ...
DrawGrid
Привет всем! как можно сразу отобразить изменения в Гриде, а то пока окошко не сминимизируешь, изменения не обновятся :...
Последовательный порт RS-232
Автоматизация различных систем с помощью компьютера меня интересовала всегда. Но когда я начал заниматься этой задачей, то столкнулся с множеством проблем. Одна из главных проблем это литература, в которой в доступной для меня форме был бы освещен данный вопрос. Данная статья была задумана для объединения в себя всю ту информацию, которую я почерпнул в ходе своего изыскания в интернете.
Delphi 5 для профессионалов
Эта книга поможет вам овладеть программированием в Delphi, включая язык Object Pascal, компоненты Delphi (как работу с существующими компонентами, так и разработку ваших собственных), поддержку баз данных и приложений клиент/сервер, базовые элементы программирования в среде Windows и разработку COM-приложений, а также Web-программирование. Для чтения этой книги нет необходимости в глубоких знаниях какой-либо из этих тем, но что вам действительно понадобится — это основы программирования на Паскале.
Автор: М. Кэнту
Дельфи Топ20 "Дельфи Топ20" - это рейтинг небольших русских сайтов о Дельфи. С помощью него Вы сможете найти много интересной информации о Delphi!
» Оценка сайта: 2
Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.
Для души
Хокку дня
Всё в мире быстротечно! Дым убегает от свечи, Изодран ветхий полог.
Афоризмы
Люди находят утешение в бедах, обрушившихся на других....
Фраза дня
Если третье лезвие бреет ещё чище - то зачем нужны первые два?
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Огайо (США) полиция не имеет права производить аресты по воскресеньям и на День независимости.
В Англии под угрозой крупного штрафа запрещается мочиться на публике. Единственное исключение, если мужчина делает это на заднее колесо своей машины- его правая рука при этом должна оставаться на капоте автомобиля. (Видимо, чтобы у прохожих создавалось впечатление, будто джентельмен зашел за машину просто полюбоваться природой)
И на закуску коротенький анекдот
К директору цирка приходит мужик и говорит: - У меня есть замечательный номер: прыжок из-под купола цирка вниз головой на бетонную плиту. - А, ну, покажи! Мужик показывает, с ним заключают контракт, аншлаг каждый вечер. Через две недели мужик снова приходит к директору: - Нет, не буду больше выступать. Больно все-таки!