Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: dragdrop

   
    by shmia, 29. Aug 2012
  // kommentierter Sourcecode
  WM_DROPFILES:
  begin
  // es geht los
  // ganz offensichtlich soll die Namen von gedroppten Dateien ermittelt werden
  nFilesDropped := DragQueryFile(wP, LongWord(-1), '', 0);
  sFileName := ''; // <= überflüssiger Code
  
  // Wenn es nur eine Datei gab, dann ist das ein Spezialfall des allgemeinen Falls
  // dass mehrere Dateien...
• Forum: Programmieren allgemein

  AW: dragdrop

   
    by shmia, 29. Aug 2012
  In deinem Codebeispiel vermischen sich Dinge, die nicht zusammengehören. :warn:
  
  Folgende Prozedure liefert alle gedroppten Dateien in einer Stringliste und zusätzlich (aber optional) den Punkt relativ zum Desktop Ursprung.
  procedure GetDroppedFiles(HDrop:THandle; filelist:TStrings; Point:PPoint);
  var
  i, filecount, size : Integer;
  s : string;
  begin
  Assert(Assigned(filelist));