Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];
ВнизКто-нибудь занимался интерфейсами на Дельфи? Найти похожие ветки
← →
Romkin (2002-01-23 15:16) [33]Сдаюсь. Для перевода надо бы полное описание функции ObjectFromLresult - было бы удобней
Итак:
BOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
{
TCHAR buf[100];
::GetClassName( hwnd, (LPTSTR)&buf, 100 );
if ( _tcscmp( buf, _T("Internet Explorer_Server") ) == 0 )
{
*(HWND*)lParam = hwnd;
return FALSE;
}
else
return TRUE;
};
Лучше перевести так
uses ComObj; //там потребуется, чтобы CoInitialize не вызывать...
function EnumChildProc(Handle:HWND; Param: LParam): BOOL; stdcall;
var
Buffer: string;
nSize: integer;
begin
nSize := GetClassName(Handle, nil, 0);
SetLength(Buffer, nSize);
GetClassName(Handle, PChar(Buffer), nSize);
if AnsiCompareText(Buffer,"Internet Explorer_Server") = 0 then
begin
HWND(Param) := Handle;
Result := False; //found
end
else Result := True; //continue Enum
end;
Вроде ошибок нет... Поправьте, если чо
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c