;
var
vMemoryStream: TMemoryStream;
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
上一页 [1] [2] |
