Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];
ВнизСвязь между приложениями Найти похожие ветки
← →
Набережных С. (2002-01-30 19:31) [4]Получаем спипок дескрипторов и классов дочерних окон можно так:
function EnumChildProc(Wnd:HWND; lPrm:LPARAM):bool;stdcall;
var
s:string;
begin
SetLength(s,MAX_PATH+1);
SetLength(s,GetClassName(wnd,pChar(s),MAX_PATH));
TStringList(lPrm).AddObject(s,pointer(Wnd));
Result:=true;
end;
procedure EnumChilds(Handle:HWND);
var
n:integer;
SL:TStringList;
begin
SL:=TStringList.Create;
EnumChildWindows(Handle,@EnumChildProc,integer(SL));
end;
Получить или установить текст в EDIT - Get(Set)WindowText.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c