Ich habe viel gesucht, aber leider nichts zum Thema gefunden. Wie kann ich bei WM_DROPPFILES den Empfänger unterscheiden? Mein bisheriger Code:
Delphi-Quellcode:
procedure TfrmSteganosaur.AppMessage(var Msg: Tmsg; var Handled: Boolean);
const
BufferLength: word = 255;
var
DroppedFilename: string;
FileIndex: word;
QtyDroppedFiles: word;
pDroppedFilename: array[0..255] of Char;
DroppedFileLength: word;
begin
if Msg.Message = WM_DROPFILES then
begin
FileIndex := $FFFF;
QtyDroppedFiles := DragQueryFile(Msg.WParam, FileIndex, pDroppedFilename, BufferLength);
for FileIndex := 0 to (QtyDroppedFiles - 1) do
begin
DroppedFileLength := DragQueryFile(Msg.WParam, FileIndex, pDroppedFilename, BufferLength);
DroppedFilename := StrPas(pDroppedFilename);
edtCarrierFile.Text := DroppedFilename;
edtTrailerFile.Text := DroppedFilename;
end;
DragFinish(Msg.WParam);
Handled := true;
end;
end;
So wie er jetzt ist landet die Datei natürlich in beiden Edits, wenn ich sie über einem droppe.