thank you
thank you,
but I have already read it. And I have done it again. but I dont understand
how it can help me.
Ok I can create my format or use CF_COMPONENT but how can i get the files
let's say its file number 2,4,5,7,8,9 in the list. because I can only have
one object at the time on the clipboard.
And if I create my format can other applications understand it like word or
ie or mspaint or just what ever?
procedure TForm1.Button1Click(Sender: TObject);
begin
clipboard.Open;
clipboard.Clear;
//This is my problem
//??????????????????????????????????????????????
clipboard.Assign(filelistbox1.Items); // or clipboard.SetComponent or ??????
clipboard.Close;
end;
I hope you can help me
thank you again
"John Herbster" <jo...@petronworld.com> wrote in message
news:3a9fb43c$1_1@dnews...
GOH, I have only used clipboard through the AsText property. But,
as I understand it, the same information is allowed to exist on the
clipboard in several formats -- ex: plain text, html, etc. and the
reader of the clipboard selects the format that it wants. Maybe an
expert will jump in here and help. Regards, JohnH
"John Herbster" <jo...@petronworld.com> wrote in message
news:3a9fdeb0$1_1@dnews...
.........
Uses ..............Clipboard, ShlObj.........;
Procedure ...................
Const
m : array[0..14] of Char = 'F:\index.html'#0#0; // It is file on my hard
disk you must choose existing file on your.
Var
df : DROPFILES;
p : Pointer;
p1 : ^Byte;
gm : THandle;
begin
gm := GlobalAlloc( GMEM_FIXED, SizeOf( df) + SizeOf( m));
p := GlobalLock( gm);
df.pFiles := SizeOf( df);
df.pt := Point(0,0);
df.fWide := FALSE;
Move( df, p^, SizeOf( df));
p1 := p;
Inc( p1, SizeOf( df));
Move( m, p1^, SizeOf( m));
GlobalUnlock( gm);
ClipBoard.Open;
SetClipboardData( CF_HDROP, gm);
Clipboard.Close;
end;
After executing this procedure you can Right Click on your Desktop (for
example, or any folder opened from explorer) and choose "Paste"
If you want to "copy" more than one file they should be in format
<FILE_NAME_1>#0<FILE_NAME_2>#0....<FILE_NAME_N>#0#0 - note double '#0' at
end.
Hope, it will help you.
Marin Atanasov
"GOH" <g...@net-album.net> wrote in message
news:97nrkk$lu...@bornews.inprise.com...
Please do not post your question to several of the newsgroups at once,
it is against the forum guidelines (see
http://www.borland.com/newsgroups/) and just wastes resources (both
server and human, somebody might spend time on answering a post that
has already been answered in another newsgroup).
Peter Below (TeamB) 10011...@compuserve.com)
No e-mail responses, please, unless explicitly requested!
Note: I'm unable to visit the newsgroups every day at the moment,
so be patient if you don't get a reply immediately.
"Marin Atanasov" <mata...@scientist.com> wrote in message
news:3a9ff0c4$1_1@dnews...