下面是我在离线浏览器找到的.<br>uses <br> clipbrd, shellapi; <br><br>{$R *.DFM} <br><br>procedure TForm1.Button1Click(Sender: TObject); <br>var <br> f: THandle; <br> buffer: Array [0..MAX_PATH] of Char; <br> i, numFiles: Integer; <br>begin <br> Clipboard.Open; <br> try <br> f:= Clipboard.GetAsHandle( CF_HDROP ); <br> If f <> 0 Then Begin <br> numFiles := DragQueryFile( f, $FFFFFFFF, nil, 0 ); <br> memo1.Clear; <br> for i:= 0 to numfiles - 1 do begin <br> buffer[0] := #0; <br> DragQueryFile( f, i, buffer, sizeof(buffer)); <br> memo1.lines.add( buffer ); <br> end; <br> end; <br> finally <br> Clipboard.close; <br> end; <br>end;