Hmm..
Ein weiterer Fehler ist die Verwendung von DragInfo!
DragInfoW führt bei Verwendung mit Notepad als Ziel dazu, dass Notepad meldet, die Datei nicht zu finden.
Seitens MS ist hier DROPFILES zu verwenden.
https://msdn.microsoft.com/de-de/lib...sktop/bb773269
Hiermit können
ANSI wie WideString Filenamen verwendet werden (mit fWide = True für WideString).
Delphi-Quellcode:
type
// DROPFILES structure
PDropFiles = ^_DROPFILES;
_DROPFILES = record
pFiles: DWORD; { init with SizeOf(_DROPFILES) }
pt: TPoint;
fNC: BOOL;
fWide : BOOL
end;
TDropFiles = _DROPFILES;
Mit meiner angepassten MakeDrop müsste es sowohl mit
Ansi, wie auch Wide funktionieren.
Konnte es aber nur mit D6 testen.
Als Ziel habe ich Notepad und ein eigenes Tool (mit DragQueryFileW) für die Drops zum Testen verwendet.
Delphi-Quellcode:
function MakeDrop(const FileNames: TStrings): HDROP;
var
I, DataSize, Size: Integer;
Data: PDropFiles;
P: PChar;
begin
// berechne notwendig Speichergröße
DataSize := SizeOf(TDropFiles);
for I := 0 to FileNames.Count-1 do begin
Size := (Length(FileNames[I]) * SizeOf(Char)) + SizeOf(Char);
Inc(DataSize, Size);
end;
inc(DataSize, SizeOf(Char)); // Für abschließendes #0 Char
// alloziere den speicher
Result := GlobalAlloc(GHND or GMEM_SHARE, DataSize);
if Result <> 0 then
begin
Data := GlobalLock(Result);
if Data <> nil then
try
FillChar(Data^, DataSize, 0);
// Fülle daten
Data.pFiles := SizeOf(TDropFiles);
Data.fWide := (SizeOf(Char) > 1);
// Am Ende des headers nun die filenamen getrennt mit #0
P := PChar(Cardinal(Data) + Data.pFiles);
for I := 0 to FileNames.Count-1 do
begin
Size := (Length(FileNames[I]) * SizeOf(Char)) + SizeOf(Char);
Move(PChar(FileNames[I])^, P^, Size );
Inc(P, Size);
end;
finally
GlobalUnlock(Result);
end
else
begin
GlobalFree(Result);
Result := 0;
end;
end;
end;