19.11.2007, 16:58
общий
это ответ
Здравствуйте, Зощенко Алексей!
Я использую вот такой код в плэеере собственного изготовления.
Приложение:
private { Private declarations } procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES; //получение сообщений о переносе файла в окно приложенияprocedure TPlayer.WMDropFiles(var Msg: TWMDropFiles);var CFileName: array[0..MAX_PATH] of Char; // переменная, хранящая имя файлаbegin try If DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH)> 0 then // получение пути файла begin LIstBox.Items.Add(CFileName); // имя файла Msg.Result := 0; end; finally DragFinish(Msg.Drop); // отпустить файл end;
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru