VPF::Как послать данные другому приложению используя auto-drag-n-drop?

Poseidon

Дата 18.5.2005, 02:04 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код

uses 
  ShellAPI; 

function MakeDrop(const FileNames: array of string): THandle; 
// Creates a hDrop Object 
var 
  I, Size: Integer; 
  Data: PDragInfoA; 
  P: PChar; 
begin 
  // Calculate memory size needed 
  Size := SizeOf(TDragInfoA) + 1; 
  for I := 0 to High(FileNames) do 
    Inc(Size, Length(FileNames[I]) + 1); 
  // allocate the memory 
  Result := GlobalAlloc(GHND or GMEM_SHARE, Size); 
  if Result <> 0 then 
  begin 
    Data := GlobalLock(Result); 
    if Data <> nil then 
      try 
        // fill up with data 
        Data.uSize := SizeOf(TDragInfoA); 
        P  := PChar(@Data.grfKeyState) + 4; 
        Data.lpFileList := P; 
        // filenames at the at of the header (separated with #0) 
        for I := 0 to High(FileNames) do 
        begin 
          Size := Length(FileNames[I]); 
          Move(Pointer(FileNames[I])^, P^, Size); 
          Inc(P, Size + 1); 
        end; 
      finally 
        GlobalUnlock(Result); 
      end 
    else 
    begin 
      GlobalFree(Result); 
      Result := 0; 
    end; 
  end; 
end; 

function MyEnum(Wnd: hWnd; Res: PInteger): Bool; stdcall; 
// search for a edit control with classname 'TEditControl' 
var 
  N: string; 
begin 
  SetLength(N, MAX_PATH); 
  SetLength(N, GetClassName(Wnd, Pointer(N), Length(N))); 
  Result := AnsiCompareText('TEditControl', N) <> 0; 
  if not Result then Res^ := Wnd; 
end; 

// Example: Open msdos.sys in Delphi's Editor window 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  Wnd: HWnd; 
  Drop: hDrop; 
begin 
  // search for Delphi's Editor 
  EnumChildWindows(FindWindow('TEditWindow', nil), @MyEnum, Integer(@Wnd)); 
  if IsWindow(Wnd) then 
  begin 
    // Delphi's Editor found. Open msdos.sys 
    Drop := MakeDrop(['c:\msdos.sys']); 
    if Drop <> 0 then PostMessage(Wnd, wm_DropFiles, Drop, 0); 
    // Free the memory? 
    GlobalFree(Drop); 
  end; 
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »