Здравствуйте, Answer_i3, Вы писали:
A_>делаю примерно следующие
A_>A_>function GetAcadCmdLine(AcadWnd:HWND):WideString ; stdcall;
A_> var cmdText:array [0..15999] of Char;//это конечно не красиво.... но пока так
A_> //***************************************************************
A_> function EnumChildProc(Wnd:HWND;lParam:LongInt):boolean; stdcall;
A_> var wndText:array [0..15999] of Char;
A_> begin
A_> if lParam<>0 then
A_> Result:=false
A_> else
A_> begin
A_> //SendMessage(Wnd,WM_GETTEXT,1600,integer(@wndText));
A_> //if (Pos(' ',AnsiUpperCase(wndText))>0)then
A_> GetWindowText(Wnd,wndText,255);
A_> if (AnsiContainsText(wndText,'MountTam')) then
A_> CommandWnd:=Wnd;
A_> Result:=true;
A_> end;
A_> end;
A_> //***************************************************************
A_>begin
A_> CommandWnd:=0;
A_> EnumChildWindows(AcadWnd,@EnumChildProc,CommandWnd);
A_> if CommandWnd<>0 then
A_> begin
A_> SendMessage(CommandWnd,WM_GETTEXT,16000,LPARAM(integer(@cmdText)));
A_> Result:=cmdText;
A_> end;
A_>end;
A_>
A_>заранее спасибо!!!!
а кстати, интересно вот тут :
A_> if (AnsiContainsText(wndText,'MountTam')) then
A_> CommandWnd:=Wnd;
A_> Result:=true;
может все таки:
A_> if (AnsiContainsText(wndText,'MountTam')) then
A_> lParam:=Wnd;
A_> Result:=true;
и еще:
A_> function EnumChildProc(Wnd:HWND;var lParam:LongInt):boolean; stdcall;
но это так..не по сути, но может из-за этого навелось неверное поведение?
Здравствуйте, IDr, Вы писали:
IDr>а кстати, интересно вот тут :
IDr>A_>> if (AnsiContainsText(wndText,'MountTam')) then
A_>> CommandWnd:=Wnd;
A_>> Result:=true;
IDr>
IDr>может все таки:
IDr>A_>> if (AnsiContainsText(wndText,'MountTam')) then
A_>> lParam:=Wnd;
A_>> Result:=true;
IDr>
IDr>и еще:
IDr>A_>> function EnumChildProc(Wnd:HWND;var lParam:LongInt):boolean; stdcall;
IDr>
if (AnsiContainsText(wndText,'MountTam')) then
CommandWnd[/b]:=Wnd;
Result:=true;
IDr>[/pascal]
CommandWnd это глобальная переменная — hwnd командной строки,его я нахожу верно
function EnumChildProc(Wnd:HWND;
var lParam:LongInt):boolean; stdcall; если делаю так то велетает Access Vailation.
