123

procedure CopyFilesToClipboard(FileList: string); var DropFiles: PDropFiles; hGlobal: Thandle; iLen: Integer; begin iLen := Length(FileList) * SizeOf(Char) + 2; FileList := FileList + #0#0;...

添加内容 ListBox1.Items.Add('item1'); 显示选中内容 ListBox1.Items[ListBox1.ItemIndex];

接收消息======================== unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: ...