|
ｿｽｿｽDelphi Q & Aｿｽfｿｽｿｽｿｽｿｽ
|
ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾌゑｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽﾌ難ｿｽeｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ保托ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
Fusa 2007/12/30(ｿｽｿｽ) 13:25:48
ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽeｿｽLｿｽXｿｽgｿｽﾆゑｿｽｿｽﾄ暦ｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽﾍ出ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇ会ｿｽｿｽﾅゑｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽﾆは、
ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽﾌゑｿｽｿｽﾗてのフｿｽHｿｽ[ｿｽ}ｿｽbｿｽg
ｿｽｿｽｿｽ痰ｦｿｽﾎ画像ｿｽｿｽWordｿｽﾅコｿｽsｿｽ[ｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽﾌ難ｿｽe
ｿｽﾉつゑｿｽｿｽﾄ、ｿｽｿｽｿｽ黷ｪｿｽﾛ趣ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驛ｿｽｿｽｿｽｿｽｿｽﾌ難ｿｽeｿｽｿｽ
ｿｽｿｽｿｽﾌままｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍフｿｽ@ｿｽCｿｽｿｽｿｽﾉ保托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽﾅ包ｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽﾉゑｿｽ
ｿｽﾇのようｿｽﾉ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾉゑｿｽｿｽｿｽ`ｿｽｿｽｿｽﾅ難ｿｽeｿｽｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾇみ出ｿｽｿｽｿｽﾄ、ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ保托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾇみ出ｿｽｿｽｿｽｿｽ
ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾟゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽﾌ際、ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾆ。
KHE00221 2007/12/30(ｿｽｿｽ) 15:09:08
RegisterClipboardFormatｿｽﾅシｿｽXｿｽeｿｽｿｽｿｽﾉ登ｿｽ^ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾌ取得ｿｽｿｽｿｽ@ｿｽﾍ知ｿｽｿｽﾈゑｿｽｿｽﾌでとりあｿｽｿｽｿｽｿｽ99ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽ
Button1ｿｽﾅフｿｽ@ｿｽCｿｽｿｽｿｽﾉ保托ｿｽ
Button2ｿｽﾅクｿｽｿｽｿｽA
Button3ｿｽﾅフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽｿｽ
procedureTForm1.Button1Click(Sender:TObject);
var
I:Integer;
Data:THandle;
DataPointer:Pointer;
MemoryStream:TMemoryStream;
Buffer:array[0..255]ofChar;
begin
MemoryStream:=TMemoryStream.Create;
try
ClipBoard:=TClipBoard.Create;
try
ClipBoard.Open;
try
forI:=0toClipBoard.FormatCount-1do
begin
ifClipBoard.HasFormat(ClipBoard.Formats[I])=Truethen
begin
Data:=GetClipBoardData(I);
DataPointer:=GlobalLock(Data);
try
MemoryStream.Clear;
MemoryStream.WriteBuffer(DataPointer^,GlobalSize(Data));
MemoryStream.SaveToFile(IntToStr(I)+'.DAT');
finally
GlobalUnlock(Data);
end;
end;
end;
finally
ClipBoard.Close;
end;
finally
ClipBoard.Free;
end;
finally
MemoryStream.Free;
end;
end;
procedureTForm1.Button2Click(Sender:TObject);
begin
ClipBoard:=TClipBoard.Create;
ClipBoard.Open;
ClipBoard.Clear;
ClipBoard.Close;
ClipBoard.Free;
end;
procedureTForm1.SetBuffer(Format:Word;varBuffer;Size:Integer);
var
Data:THandle;
DataPtr:Pointer;
begin
Data:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE,Size);
try
DataPtr:=GlobalLock(Data);
try
Move(Buffer,DataPtr^,Size);
SetClipboardData(Format,Data);
finally
GlobalUnlock(Data);
end;
except
GlobalFree(Data);
raise;
end;
end;
procedureTForm1.Button3Click(Sender:TObject);
var
FileName:String;
I,C:Integer;
Data:THandle;
DataPointer:Pointer;
MemoryStream:TMemoryStream;
begin
MemoryStream:=TMemoryStream.Create;
try
ClipBoard:=TClipBoard.Create;
try
ClipBoard.Open;
try
forI:=0to99do
begin
FileName:=IntToStr(I)+'.DAT';
ifFileExists(FileName)=Truethen
begin
MemoryStream.Clear;
MemoryStream.LoadFromFile(FileName);
SetBuffer(I,MemoryStream.Memory^,MemoryStream.Size);
end;
end;
finally
ClipBoard.Close;
end;
finally
ClipBoard.Free;
end;
finally
MemoryStream.Free;
end;
end;
KHE00221 2007/12/31(ｿｽｿｽ) 23:02:25
ｿｽｿｽｿｽｿｽ
ifClipBoard.HasFormat(ClipBoard.Formats[I])=Truethen
begin
Data:=GetClipBoardData(I);
DataPointer:=GlobalLock(Data);
try
MemoryStream.Clear;
MemoryStream.WriteBuffer(DataPointer^,GlobalSize(Data));
MemoryStream.SaveToFile(IntToStr(I)+'.DAT');
ｿｽｿｽｿｽｿｽｿｽｿｽ
Format:=ClipBoard.Formars[I];
ifClipBoard.HasFormat(Format)=Truethen
Data:=GetClipBoardData(Format);
DataPointer:=GlobalLock(Data);
try
MemoryStream.Clear;
MemoryStream.WriteBuffer(DataPointer^,GlobalSize(Data));
MemoryStream.SaveToFile(IntToStr(Format)+'.DAT');
KHE00221 2007/12/31(ｿｽｿｽ) 23:59:33
ｿｽｿｽLｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽﾅゑｿｽforI:=0to99doｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
RegisterClipboardFormatｿｽｿｽｿｽ黷ｽｿｽﾔ搾ｿｽｿｽｿｽ0xC000ｿｽ`0xFFFFｿｽﾉなゑｿｽﾌゑｿｽ
forｿｽﾅは厄ｿｽｿｽﾊになゑｿｽﾜゑｿｽｿｽB
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽFｿｽｿｽｿｽﾔ搾ｿｽ.DATｿｽﾅ保托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽ
FindFirstｿｽﾅフｿｽ@ｿｽCｿｽｿｽｿｽｿｽTｿｽｿｽｿｽｿｽ
Format:=StrToInt(ChangeFileExt(SearchRec.Name,''),0);
ｿｽﾌようｿｽﾉフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾌ認ｿｽｿｽｿｽﾔ搾ｿｽｿｽ数値ｿｽﾉ変奇ｿｽｿｽｿｽｿｽｿｽ
ifFormat<>0then
begin
SetBuffer(Format,MemoryStream.Memory^,MemoryStream.Size);
end;
ｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽ
Fusa 2008/01/01(ｿｽｿｽ) 02:35:00
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾟでとゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽNｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽﾋゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽjｿｽbｿｽgｿｽﾏ撰ｿｽｿｽｿｽ
var
ClipBoard:TClipboard;
ｿｽｿｽｿｽｿｽｿｽﾇ会ｿｽ
Button1Clickｿｽｿｽ
var
Format:Word;
ｿｽｿｽﾇ会ｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽIndexｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉつゑｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾇみ出ｿｽｿｽｿｽｿｽｿｽyｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。
ｿｽlｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾔ趣ｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Fusa 2008/01/01(ｿｽｿｽ) 03:08:18
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽYｿｽ黷ｽ...
ｿｽｿｽｿｽｿｽｿｽ 2008/01/01(ｿｽｿｽ) 05:50:20
ClipboardｿｽｿｽClipbrd.pasｿｽﾌシｿｽｿｽｿｽOｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾏ撰ｿｽｿｽ骭ｾｿｽｿｽCｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽﾂゑｿｽｿｽｿｽKｿｽvｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽB
KHE00221 2008/01/01(ｿｽｿｽ) 10:06:02
ｿｽﾅゑｿｽEXCELｿｽﾅコｿｽsｿｽ[ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽだゑｿｽﾋ・ｿｽEｿｽE
KHE00221 2008/01/01(ｿｽｿｽ) 12:51:02
ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽ?
http://khe00221.image.coocan.jp/index.php?FrontPage%2FApplication%2FClipBoardHistory%28%A5%BD%A1%BC%A5%B9%C9%D5%A4%AD%29
ｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽｿｽExcelｿｽﾅコｿｽsｿｽ[ｿｽｿｽsｿｽﾈゑｿｽｿｽｿｽExcelｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽだゑｿｽﾋ・ｿｽEｿｽE
