字符串编码转换 ( 积分: 100 )

如何将unicode big endian格式的文本文件a.txt转换成ansi格式的

顶了,没遇到过

typinfo单元的函数有此功能的函数吗

艾,自己顶下

可以使用 FindControl(h).Name 取得自己Application的控件的名称的。如果你要取的是
别的进程——我查了很多资料都没看到。

如果有些控件 没name呢你怎么找

procedure TForm1.Button1Click(Sender: TObject);
begin
tt :=TEdit.Create(Self);
tt.Parent := Self;
tt.top:=ff+30;
ff:=tt.top;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
hd :THandle;
p:TPoint;
begin
GetCursorPos(p) ;
hd:=windowFromPoint(p);
Caption := FindControl(hd).Name;
end;

to creation-zy
谢谢.我想问的的确是另外一个进程的,FindControl只能找本进程的,没错;
你也找了半天啊,呵呵.
也许就无解,只能发发消息获得text,呵呵

多人接受答案了。

去2ccc.com下载个CnFindWnd有源代码的
//查找句柄
procedure TCnFindWnd.FindWndExecute;
var
Pos: TPoint;
Buf: array[0..1024] of Char;
begin
GetCursorPos(Pos);
FDrawHandle := WindowFromPoint(Pos);
FWndHandle := IntToStr(FDrawHandle); //Handle
GetClassName(FDrawHandle, Buf, 1024); //Class
FWndClass := Buf;
SendMessage(FDrawHandle, WM_GETTEXT, 1024, Integer(@Buf)); //Text
FWndCaption := Buf;
GetWindowRect(FDrawHandle, FCurRect); //Rect
FWndRect := Format('(%d,%d)-(%d,%d) %d,%d', [FCurRect.Left, FCurRect.Top,
FCurRect.Right, FCurRect.Bottom, FCurRect.Right-FCurRect.Left,
FCurRect.Bottom-FCurRect.Top]);
CnDrawFocusRect(DrawFocus); //画虚框
end;