Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > de.comp.lang.delphi.misc > #19075

Drop File per Code?

From Alfred Gemsa <gemsa@gmx.de>
Newsgroups de.comp.lang.delphi.misc
Subject Drop File per Code?
Date 2020-06-12 22:05 +0200
Message-ID <hki5fsFpt34U1@mid.individual.net> (permalink)

Show all headers | View raw


Ich hätt' da mal ne Frage:

Viele Anwendung reagieren auf Files, die man per Maus auf sie zieht.

Ist es auch möglich, per Delphi-Code einer fremden laufenden Anwendung 
einen File z.B. per ButtonClick "zu schicken"?

Delphi müsste sich das (die?) Handle der Anwendung besorgen (no problem) 
und dann eine WM_DROPFILES-Message schicken.

Nur, mit welchem Parametern?


//=============== Exkurs Start ==============

Umgekehrt geht es in Delphi ja so:

type
   TForm1 = class(TForm)
     procedure FormCreate(Sender: TObject);
   private
     { Private-Deklarationen }
   public
     procedure AcceptFiles( var msg : TMessage );
       message WM_DROPFILES;
   end;

procedure TForm1.AcceptFiles( var msg : TMessage );
const
   cnMaxFileNameLen = 255;
var
   i, nCount  : integer;
   acFileName : array [0..cnMaxFileNameLen] of char;
begin
   // find out how many files we're accepting
   nCount := DragQueryFile( msg.WParam,
                            $FFFFFFFF,
                            acFileName,
                            cnMaxFileNameLen );

   // query Windows one at a time for the file name
   for i := 0 to nCount-1 do begin
     DragQueryFile( msg.WParam, i,
                    acFileName, cnMaxFileNameLen );
     // do your thing with the acFileName
     MessageBox( Handle, acFileName, '', MB_OK );
   end;

   // let Windows know that you're done
   DragFinish( msg.WParam );
end;

//=============== Exkurs Ende ==============

Es scheint so zu sein, dass über DragQueryFile die Message WM_DROPFILES 
verarbeitet wird und unter anderem den Filenamen enthält.

Weiß da jemand B'Scheid?

Gruß, Alfred.

Back to de.comp.lang.delphi.misc | Previous | NextNext in thread | Find similar | Unroll thread


Thread

Drop File per Code? Alfred Gemsa <gemsa@gmx.de> - 2020-06-12 22:05 +0200
  Re: Drop File per Code? Jens Köhler <jkoehl@web.de> - 2020-06-13 10:16 +0200
  Re: Drop File per Code? Jens Köhler <jkoehl@web.de> - 2020-06-13 15:17 +0200
    Re: Drop File per Code? Alfred Gemsa <gemsa@gmx.de> - 2020-06-13 21:24 +0200
      Re: Drop File per Code? Alfred Gemsa <gemsa@gmx.de> - 2020-06-13 21:34 +0200
        Re: Drop File per Code? Jens Köhler <jkoehl@web.de> - 2020-06-14 09:11 +0200
          Re: Drop File per Code? Jens Köhler <jkoehl@web.de> - 2020-06-14 09:23 +0200
            Re: Drop File per Code? Alfred Gemsa <gemsa@gmx.de> - 2020-06-14 10:31 +0200

csiph-web