drag and drop файл в чужое окно

[Terikon]

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

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

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.

[Vapaamies]

Так зачем в современном Delphi использоать PDragInfoA? Переходи на TDragInfoW.

[Terikon]

Сообщение от Vapaamies

Так зачем в современном Delphi использоать PDragInfoA? Переходи на TDragInfoW.

Заменил на TDragInfoW теперь ошибка вываливается на Data := GlobalLock(Result);
[DCC Error] Unit18.pas(46): E2010 Incompatible types: '_DRAGINFOW' and 'Pointer'

[Vapaamies]

А головой подумать? Раз раньше указатель PDragInfoA использовался, его надо было на аналогичный W-указатель заменить.

И сразу предвосхищая вопрос, почему только половина пути передаваться будет: в вызове Move размер нужно на SizeOf(Char) умножать.

[Terikon]

я извиняюсь) я не особо силён в кодинге, этот исходник я нашел в сети, если вы действительно видите все ошибке могли бы внести изменения

[min@y™]

Другие варианты чужого говнокода смотрел?

[Terikon]

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