DELPHI 如何提取网页事件中的值？

Question

网页代码如下
<TR align="center" bgcolor="#fbfbfb" onDblClick="clip('我要的内容');alert('已拷贝到剪贴板!')" onMouseOver="this.style.backgroundColor='#E1E8E8';return true;" onMouseOut="this.style.backgroundColor='#fbfbfb';">

我想将“我要的内容”提取到listbox中，我应该怎么做？
我试过将代码导到memo中，再进行字符串操作也搞不好。因为 内容 是不一样的。

回答得好的，可以加分
1楼的方好像不行

Answer 1

利用Clipboard.asText; 利用UNICODE格式解决非英文字符的乱码问题

procedure SetClipboardText(AStr: string);
var // SetBuffer(CF_TEXT, PChar(Value)^, Length(Value) + 1);
Data: THandle;
DataPtr: Pointer;
Size: Integer;
WStr: PWideChar;
begin
Size := Length(AStr) * 4;
WStr := AllocMem(Size);
try
// convert to Unicode
StringToWideChar(AStr, WStr, Size);
OpenClipboard(0);
EmptyClipboard;
Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);
try
DataPtr := GlobalLock(Data);
try
Move(WStr^, DataPtr^, Size);
SetClipboardData(CF_UNICODETEXT, Data);
finally
GlobalUnlock(Data);
end;
except
GlobalFree(Data);
raise;
end;
finally
CloseClipboard;
FreeMem(WStr);
end;
end;

其实你还可以用idhttp.get

Answer 2

得分