◆ 请您指教－编程疑难3 ◆ (11分)

vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
我有Delphi编程方面的下列问题向各位请教，我需要有效的源行段落。

1、我要清除某个黄色网站，请问：怎样在整个注册表搜索特定的字符串？
2、怎样用delphi编程才能播放 .rm格式的多媒体文件？需要第3方控件吗？
3、徒手编程使memo控件的内容改变行距，谁行？

另：我网站 http://www.to-happy.com 上的大事软件的3个版本：
单机版、内网版、外网版还有不少缺憾，请诸位下载、测试、提建议。谢谢！
vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv

淋病,梅毒全丟給你,你就解決了.

大事软件是何东东

to 太阳火:
下载一份看看吧，1兆。三个版本。功能太多。

关于第三个问题建议在画布上直接画文字，rm好像只看见RealPlay支持

1、告诉他，已经不幸感染数字梅毒。不要自我感觉太好

大事是垃圾一个。

这个author的乐观精神还是很植得各位程序民工们学习学习的。

1。 找本注册表的书，自己看看，或用优化大师
2。当然了，要不你知道rm的编码方式吗
3。
给你个源吗
//********************************************************//
type

TExtendedMemo = class(TMemo)
private
FRow: Longint;
FColumn: Longint;
FOnHScroll: TNotifyEvent;
FOnVScroll: TNotifyEvent;
procedure WMHScroll(var Msg: TWMHScroll)
message WM_HSCROLL;
procedure WMVScroll(var Msg: TWMVScroll)
message WM_VSCROLL;
procedure SetRow(Value: Longint);
procedure SetColumn(Value: Longint);
function GetRow: Longint;
function GetColumn: Longint;
protected
procedure HScroll
dynamic;
procedure VScroll
dynamic;
public
property Row: Longint read GetRow write SetRow;
property Column: Longint read GetColumn write SetColumn;
published
property OnHScroll: TNotifyEvent read FOnHScroll write FOnHScroll;
property OnVScroll: TNotifyEvent read FOnVScroll write FOnVScroll;
end;

procedure Register;

implementation

procedure TExtendedMemo.WMHScroll(var Msg: TWMHScroll);
begin
inherited;
HScroll;
end;

procedure TExtendedMemo.WMVScroll(var Msg: TWMVScroll);
begin
inherited;
VScroll;
end;

procedure TExtendedMemo.HScroll;
begin
if Assigned(FOnHScroll) then
FOnHScroll(self);
end;

procedure TExtendedMemo.VScroll;
begin
if Assigned(FOnVScroll) then
FOnVScroll(self);
end;

procedure TExtendedMemo.SetRow(Value: Longint);
begin
SelStart := Perform(EM_LINEINDEX, Value, 0);
FRow := SelStart;
end;

function TExtendedMemo.GetRow: Longint;
begin
Result := Perform(EM_LINEFROMCHAR, -1, 0);
end;

procedure TExtendedMemo.SetColumn(Value: Longint);
begin
if FColumn > Value then
FColumn := Value;
SelStart := Perform(EM_LINEINDEX, GetRow, 0) + FColumn;
end;

function TExtendedMemo.GetColumn: Longint;
begin
Result := SelStart - Perform(EM_LINEINDEX, -1, 0);
end;

end.
//************************************************//
4。 我不管，顺便问一句，帮我找份工作（待遇 给钱就行）