DELPHI
Создана: 30 Марта 2007 Птн 16:34:47.
Раздел: "Компьютерный раздел"
Сообщений в теме: 85, просмотров: 14467
-
-
WOLF3848, почитай ты книжку в конце концов. Это же базовые знания, которые доходчиво объясняются в любой книге типа "Delphi для начинающих". Экспериментировать конечно полезно, но без этих знаний ты всю жизнь будешь на форумах спрашивать такие элементарные вещи.
-
-
-
-
1) в секцию USES добаляешь модуль ShellApi
2) в объявлении класса формы добаляеш секцию protected и вней описываешь процедуру:
Код:
public
{ Public declarations }
// ... тут твои процедуры и функции ...
protected
procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles;
end;
3) делаеш реализацию этой процедуры:
Код:
procedure TForm1.WMDROPFILES(var Msg: TMessage);
var
i, count, size: integer;
File_name: PChar;
begin
inherited;
count := DragQueryFile(Msg.WParam, $FFFFFFFF, File_name, 255);
for i := 0 to (count - 1) do
begin
size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;
File_name := StrAlloc(size);
DragQueryFile(Msg.WParam, i, File_name, size);
ListBox1.items.add(StrPas(File_name));
StrDispose(File_name);
end;
DragFinish(Msg.WParam);
end;
4) при создании формы вызываеш DragAcceptFiles(Handle, true);
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
// ... тут твоё ...
DragAcceptFiles(Handle, true);
end;
при перетягивании мышкой файлов они добавляются в ListBox1 -
-
ExtractFileName(FileName: string): string; - извлекает имя файла из полного пути
ExtractFileExt(FileName: string): string; - извлекает расширение файла из имени
ExtractFilePath(FileName: string): string; - извлекает полный путь папки, в которой находится файл из полного пути файла -
nayk писал :ExtractFileName(FileName: string): string; - извлекает имя файла из полного пути
ExtractFileExt(FileName: string): string; - извлекает расширение файла из имени
ExtractFilePath(FileName: string): string; - извлекает полный путь папки, в которой находится файл из полного пути файла
действительно, проще сразу код выложить -
Я писал mp3 плеер, и не только mp3 он поддерживал, а еще кучу формматов, wma, ogg etc. C поддержкой скинов и плагинов.
WOLF3848 извини конечно, лень ценится в программисте, потому что лень-двигатель прогресса, благодаря ей появляются простые коды на сложные алгоритмы. НО такой лени я не видел. Ты спрашиваешь все базовое, все то что есть в любом спрвочнике, на любом сайте для программистов. Если ты пишешь для себя, то лучше не епи мозг людям здесь. Я с 0, не имея навыков программирования написал плеер, по функциональности не уступающий винамп 2.хх не спросив на воруме не разу. Потому что в инете ЕСТЬ все. Ищи. Если тебе все подскажут, толку от этого не будет, программист из тебя такой же будет, как из Буша президент -