I just need it to operate via drag/drop, and have the names of the files accessible as per when it runs locally what I actually do with the filenames isn't relevant. I want to be able to have the app running on a remote machine, and drag files from the local machine into the app in the remote desktop session.

dropping some files onto the app results in the filenames being added to the memo. Procedure TForm1.WMDropFiles(var Msg: TWMDropFiles) ('Filename Copied To Clipboard: ' + LFilename) LFilename := LFilename.Substring(0, LLength - 1) LLength := DragQueryFile(ADropHandle, I, nil, 0) + 1 ĭragQueryFile(ADropHandle, I, PChar(LFilename), LLength) LFileCount := DragQueryFile(ADropHandle, $FFFFFFFF, nil, 0) Procedure TForm1.GetDropFilenames(const ADropHandle: HDROP)

Some example code, that works in a regular (local) session: constructor TForm1.Create(AOwner: TComponent) ĬhangeWindowMessageFilter(WM_DROPFILES, MSGFLT_ADD) ĬhangeWindowMessageFilter(WM_COPYDATA, MSGFLT_ADD) ĬhangeWindowMessageFilter(WM_COPYGLOBALDATA, MSGFLT_ADD)

Remote desktop drag and drop