就像MSN里的功能,在系统浏览器里用CTRL+C选择了多个文件,再到MSN的对话框里用CTRL+V,MSN就会自动的把文件显示出来,进行传送。这个功能应该如何实现的???
解决方案 »
- 关于用delphi实现批量登录远程mstsc的问题
- 截取打印队列的容内写到文本文件里
- 如何使用combobox和sql数据库相关联
- 用winsocket做了一个远程屏幕监控的小软件,局域网中可用,如何实现跨网段?
- 关于delphi中的else if 语句应如何写?
- 在adoconnetion 里用 sqloledb连接sqlserver时出错,请各路高手帮忙!
- 视频问题!
- 一个比较刺激的问题,到现在还没有解决;解决后连同本贴(共三个帖子)一起揭;
- 有谁见过既能避免闪烁(象TPaintBox),又能自动重绘(象TImage)的绘图控件?
- Win7 64位下Delphi7 TPageControl无法自绘,求解决
- 为什么我这个导入到文本文件不好用
- ADO连接数据库失败问题...不解.
uses
clipbrd, shellapi;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
f: THandle;
buffer: array [0..MAX_PATH] of Char;
i, numFiles: Integer;
begin
if not Clipboard.HasFormat(CF_HDROP) then Exit;
Clipboard.Open;
try
f := Clipboard.GetAsHandle(CF_HDROP);
if f <> 0 then
begin
numFiles := DragQueryFile(f, $FFFFFFFF, nil, 0);
memo1.Clear;
for i := 0 to numfiles - 1 do
begin
buffer[0] := #0;
DragQueryFile(f, i, buffer, SizeOf(buffer));
memo1.Lines.Add(buffer);
end;
end;
finally
Clipboard.Close;
end;
end;