Mensagens - drag and drop

Top  Previous  Next

Uses ShellAPI;

 

// Procedure : WMDROPFILES

// Descrição : Fará com que o formulário de envio aceite "Drag and Drop"

 

procedure TFT_Send.WMDROPFILES(var Message: TWMDROPFILES);

var

  NumFiles : Longint;

  buffer   : Array[0..255of char;

  FileName : String;

begin

   // Verifica Quantos Arquivos estão sendo " DROPADOS "

   NumFiles := DragQueryFile(Message.Drop0, nil, 0);

   // Aceita os arquivos

   DragQueryFile(Message.Drop0, @buffer, sizeof(buffer));

   FileName:=Buffer ;

   FT_Send.edFile.Text   :=ExtractFileName(FileName);

   FT_Send.lbPath.Caption:=ExtractFilePath(FileName);

end;

 

procedure TFT_Main.FormCreate(Sender: TObject);

begin

    // Habilita o programa a executar "Drag and Drop" nos Arquivos

     DragAcceptFiles(FT_Main.Handle, True);

end;