Форум: "WinAPI";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];
ВнизПрием ссылок из эксплорера Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c