var
str:array[0..255] of char;
begin
strPcopy(@str[0],'结束');SetWindowText(GetWindow(FindWindow(PChar('Shell_TrayWnd'),nil),GW_CHILD),@str[0]);
str:array[0..255] of char;
begin
strPcopy(@str[0],'结束');SetWindowText(GetWindow(FindWindow(PChar('Shell_TrayWnd'),nil),GW_CHILD),@str[0]);
SetWindowText(GetWindow(FindWindow(PChar('Shell_TrayWnd'),nil),GW_CHILD),@str);