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
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




