Бывают случаи когда нужно сделать чтобы при перетаскивании файлов на ярлык программы Блиц 3Д. Внизу содержится код который позволяет получить список файлов которые были перетащены на ярлык:

Type CLFile
Field Path$
End Type
Local app_args$=CommandLine()
Repeat
Local off1, off2
off1=Instr(app_args, Chr(34), off2+1)
If off1=0 Then Exit
off2=Instr(app_args, Chr(34), off1+1)
If off2=0 Then Exit
Local path$=Mid(app_args, off1+1, off2-off1-1)
Local F.CLFile=New CLFile
FPath=path
Forever

Данный код лучше вставить в начало файла. А потом можно просто получить имена файлов (без кавычек) пролистывая типы CLFile:

For File.CLFile=Each CLFile
;Код
Next

Автор поста Igor

(Visited 220 times, 1 visits today)