本文整理自网络,侵删。
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 读文件到十六进制的函数(Delphi 7 下可用)
Delphi 如何在tmemo,tedit或trichedit中获得插入符的位置
更多相关阅读请进入《Delphi》频道 >>