Drag&Drop

[eddy]

Hallo Nailor,

entweder Du prüfst, ob die Datei existiert oder mit try - except

Ich habe das 2. verwendet:

Code:

procedure TFTest.WMDROPFILE(var msg: TMessage);
var
  hDrop : Cardinal ;
  fName : array[0..MAX_PATH] of Char ;
  fnnew, fnold : string;
  i : integer;
begin
   hDrop := Msg.WParam ;
   fName := '' ;

   i := 0;
   fnold := '';
   DragQueryFile(hDrop, i, fName, MAX_PATH);
   fnnew := string(fName);
   while fnnew <> fnold do begin
     fnold := fnnew;
     try
       Memo2.Lines.LoadFromFile(String(fName));
       Memo2.SelectAll;
       Memo2.CopyToClipboard;
       Memo1.SelStart := Memo1.GetTextLen;
       Memo1.Lines.Add('');
       Memo1.Lines.Add('');
       Memo1.Lines.Add('');
       Memo1.Lines.Add(fnnew);
       Memo1.Lines.Add('');
       Memo1.PasteFromClipboard;
     except
       MessageDlg(fnnew + ' konnte nicht geöffnet werden', mtError, [mbOK], 0);
     end;  
//     RichEdit1.Lines.LoadFromFile(String(fName));
     inc(i);
     DragQueryFile(hDrop, i, fName, MAX_PATH);
     fnnew := string(fName);
   end;
   DragFinish (hDrop);
end;

mfg
eddy

PS: was heißt "AVs" auf Deutsch?