[usfire]

Сообщение от lmikle

Конечно выдает ошибку. У тебя родительского окна нет. Или это компилятор выдает? Короче, замени его на любую диагностику, это не принципиально, просто для отладки извещение, что нужное окно не найдено.

отсальной поток создания не распознан. выражай свои мысли более понятно.

lmikle , в предыдущий раз вы мне помогли , месяца 2 назад

года 2 назад использовал такой код :

Код:

program Project2;



uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Dialogs,
  StdCtrls,
  Clipbrd;

{ TODO -oUser -cConsole Main : Insert code here }

function FuncAvail(dllName,funcName: string; var p: pointer): boolean;
var
lib: THandle;

begin

result := true;
p := nil;
if LoadLibrary(PChar(dllName)) = 0 then exit;
lib := GetModuleHandle(PChar(dllName)) ;
if lib <> 0 then
begin
p := GetProcAddress(lib, PChar(funcName)) ;
if p <> nil then Result := true;
end;
end;

var
BlockInput : function(Block: BOOL): BOOL; stdcall;
h1:HWND;
login, pas : string;

begin
if FuncAvail('USER32.DLL',
'BlockInput', @BlockInput) then
begin
login:='1@gmail.com';


BlockInput(true) ;
  h1:=FindWindow(nil,'Программа');
//PostMessage(h1,WM_KEYDOWN,VK_TAB, 0);
//PostMessage(h1,WM_KEYUP,VK_TAB, 0);
Clipboard.AsText:=PChar(login);
keybd_event(VK_CONTROL, 0, 0, 0);
  keybd_event(Ord('V'), 0, 0, 0);
  keybd_event(Ord('V'), 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
  sleep(500);


PostMessage(h1,WM_KEYDOWN,VK_RETURN, 0);
PostMessage(h1,WM_KEYUP,VK_RETURN, 0);


  // sleep(7000);




BlockInput(false) ;
end;

end.