Текущий архив: 2004.08.01;
Скачать: CL | DM;

Вниз

Прием ссылок из эксплорера   Найти похожие ветки 

← →
Brenagwynn   (2004-06-17 19:12) [0]

Каким образом можно организовать сабж при помощи дрыга и дропа(а-ля ReGetовская корзина)? С файлами-то понятно, а вот как быть со ссылками?

---

← →
VMcL ©   (2004-06-17 19:43) [1]

>>Brenagwynn  (17.06.04 19:12)

DragAcceptFiles() + WM_DROPFILES

Win32 SDK Help: Using the Drag-Drop Feature - там пример на C.

---

← →
DVM ©   (2004-06-17 22:57) [2]

IDropTarget интерфейс реализовать.
Есть компонент Drag "n" Drop Component Suite, вроде, Андрис Меландер, кажется, автор (www.torry.net) - там можно глянуть как делается.

Хотя WM_DROPFILES может и прокатит, т.к. с помощью этого сообщения посылается список строк и необязательно это должны быть файлы.

---

← →
VMcL ©   (2004-06-18 00:03) [3]

>>Brenagwynn  (17.06.04 19:12)

Или ты имеешь в виду, что не знаешь как прочитать параметры файла-ярлыка? Если да, то вот как-то так:


type
 TPathBuf = packed array [0 .. 4095] of Char;

 TLinkInfo = packed record
   Path: String;
   Args: String;
   WorkDir: String;
   ShowCmd: TWindowState;
   Descr: String;
   IconPath: String;
   IconIdx: Integer;
   Hotkey: Word;
 end;

function ReadLink(var ALink: TLinkInfo; const AFileName: String): Boolean;
var
 Obj: IUnknown;
 Lnk: IShellLink;
 pFile: IPersistFile;
 Cmd: Integer;
 WFileName: WideString;
 pc: TPathBuf;
 FD: TWin32FindData;
const
 Mx = SizeOf(pc) - 1;
begin
 Result := False;

 Obj := CreateComObject(CLSID_ShellLink);
 if Obj = nil then
   raise Exception.Create(
     "ReadLink: cannot create IShellLink interface object.");

 Lnk := Obj as IShellLink;
 pFile := Obj as IPersistFile;

 WFileName := WideString(AFileName);
 if pFile.Load(PWideChar(WFileName),
   stgm_Read or stgm_Share_Deny_Write) <> S_OK then Exit;

 if Lnk.GetDescription(pc, Mx) <> S_OK then Exit;
 ALink.Descr := String(pc);

 if Lnk.GetPath(pc, Mx, FD, 0) <> S_OK then Exit;
 ALink.Path := pc;

 if Lnk.GetArguments(pc, Mx) <> S_OK then Exit;
 ALink.Args := pc;

 if Lnk.GetWorkingDirectory(pc, Mx) <> S_OK then Exit;
 ALink.WorkDir := pc;

 if Lnk.GetShowCmd(Cmd) <> S_OK then Exit;
 case Cmd of
   sw_ShowNormal:       ALink.ShowCmd := wsNormal;
   sw_ShowMinNoActive:  ALink.ShowCmd := wsMinimized;
   sw_ShowMaximized:    ALink.ShowCmd := wsMaximized;
 else
   raise ERangeError.CreateFmt(
     "ReadLink: unexpected value of "show command" (%d).", [Cmd]);
 end;

 if Lnk.GetIconLocation(pc, Mx, ALink.IconIdx) <> S_OK then Exit;
 ALink.IconPath := String(pc);

 if Lnk.GetHotkey(ALink.Hotkey) <> S_OK then Exit;

 Result := True;
end;

---

← →
Brenagwynn   (2004-06-18 11:29) [4]

Неее, как принимать файлы я знаю. И WM_DROPFILES не прокатывает.

---

Страницы: 1 вся ветка

Текущий архив: 2004.08.01;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.058 c