剪贴板的流存储

begin if not SaveDialog1.Execute then Exit; if FileExists(SaveDialog1.FileName) and (MessageDlg(Format(''''是否覆盖文件 "%s"？'''', [SaveDialog1.FileName]), mtWarning, [mbYes, mbNo], 0) <> mrYes) then Exit; vMemoryStream := TMemoryStream.Create; try ClipboardSaveToStream(vMemoryStream); vMemoryStream.SaveToFile(SaveDialog1.FileName); finally vMemoryStream.Free; end; end;

procedure TFormClipboard.ButtonLoadClick(Sender: TObject);
var
  vMemoryStream: TMemoryStream;
begin
  if not OpenDialog1.Execute then Exit;
  if not FileExists(OpenDialog1.FileName) then Exit;
  vMemoryStream := TMemoryStream.Create;
  try
    vMemoryStream.LoadFromFile(OpenDialog1.FileName);
    ClipboardLoadFromStream(vMemoryStream);
  finally
    vMemoryStream.Free;
  end;
end;
///////End Demo

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!