补充解决方法:
uses winskindlg;
Type
TMySkinManage=class(TSkinManage);
procedure TForm1.BitBtn2Click(Sender: TObject);
var
P: Pchar;
begin
P := Pointer(TMySkinManage(SkinManager).FindSkinForm(Handle));
if P = nil then exit;
P := P+104; //D5的话请将104改为88,未经测试
Pstring(P)^ := Edit1.Text;
Caption := Edit1.Text;
end;
以上假设caption要被改为edit1.text,在要修改时这样做吧
我没地方放啊,只好放那里了,谁下了就共享一下吧,我不介意的……
其实我也疼恨PlayICQ,我自己什么也下不了……