getwindowname.mb

来自「很多的MAPINFO的常见问题下载后可以学习很有帮助」· MB 代码 · 共 12 行

include "mapbasic.def"

declare sub main

sub main
	dim i,winnum as integer
	winnum= numwindows()
	note "there is :" & winnum &" windows"
	for i= 1 to winnum
		note windowinfo(i,WIN_INFO_NAME)
	next
end sub