VPF::drag and drop файл в чужое окно - Форум программистов

Terikon

Дата 3.10.2014, 13:03 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 1.4.2009

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

Делаю так, в консоль заноситься только первый символ из этого C:\Users\Admin\Desktop\notepad.exe пути, то есть только С

Подскажите где ошибка, или есть другие методы.

Delphi xe 2

Код:

Код


function MakeDrop(const FileNames: array of string): THandle;
var
  I, Size: Integer;
  Data: PDragInfoA;
  P: PAnsiChar;
begin
  Size := SizeOf(TDragInfoA) + 1;
  for I := 0 to High(FileNames) do
    Inc(Size, Length(FileNames[I]) + 1);
  Result := GlobalAlloc(GHND or GMEM_SHARE, Size);
  if Result <> 0 then
  begin
    Data := GlobalLock(Result);
    if Data <> nil then
      try
        Data.uSize := SizeOf(TDragInfoA);
        P := PAnsiChar(@Data.grfKeyState) + 4;
        Data.lpFileList := P;
        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;

procedure TForm18.btn1Click(Sender: TObject);
var
  Wnd: hWnd;
  Drop: hDrop;
  dir, dfile: string;
begin
  dfile := 'C:\Users\Admin\Desktop\notepad.exe';
  Wnd := FindWindow('ConsoleWindowClass', nil);
  If (Wnd <> 0) then
  begin
    Drop := MakeDrop([dfile]);
    if Drop <> 0 then
      PostMessage(Wnd, wm_DropFiles, Drop, 0);
    GlobalFree(Drop);
  end
  else
  begin
    Exit;
  end;
end;

end.

Это сообщение отредактировал(а) Terikon - 3.10.2014, 13:04

drkot

Дата 3.10.2014, 13:23 (ссылка)

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

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 5
Всего: 8

По всей видимости после "C" идет #0

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

Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.

Terikon

Дата 3.10.2014, 13:32 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 1.4.2009

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

Цитата(drkot @ 3.10.2014, 13:23)

По всей видимости после "C" идет #0

на другом форуме мне посоветовали
Заменить PDragInfoA на PDragInfoW это я сделал, по прежнему передаётся один символ
и ещё это " почему только половина пути передаваться будет: в вызове Move размер нужно на SizeOf(Char) умножать." при добавлении прога просто зависает

Добавлено через 11 минут и 51 секунду
разобрался, оказывается всё очень просто, нужно просто заменить везде string на ansistring

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