本文整理自网络,侵删。
uses Winapi.Windows, FMX.Platform.Win;
procedure TForm1.FormCreate(Sender: TObject);var app: HWND;begin //Application.Title := 'New Application Title'; app := GetWindow(WindowHandleToPlatform(Self.Handle).Wnd, GW_OWNER); SetWindowText(app, 'New Application Title');end;
相关阅读 >>
Delphi 解决idtcpclient和idtcpserver通信中文乱码问题
Delphi读取android设备联系人.Delphixe6中编译通过
更多相关阅读请进入《Delphi》频道 >>