Вставка в поле Edit

[EVO-X]

Мне нужно чтобы в программе при нажатии на кнопку вставлялись указанные мною, цифры и буквы, в другю программу(она уже будет запущена) в поле Edit. Ну например при установки какойлибо проги которая требует ввести ключ, т.е. запустилась установка проги, требуется ввести серийник и я нажимаю в своей проге на кнопку, а она уже вставляет серийник, чтобы не вводить самому. Начало я знаю как делать, надо найти окно в которое ввести серийник, потом нужно както найти поле в которое ввести серийник и вставить в найденное поле, но как найти поле и вставить я незнаю. Кто знает помогите мне. Заранее благодарен.

[_Dmitry]

Тема уже была.
Например, данный код записывает текст в Edit Калькулятора Windows:

var
  h,sh: HWND;
begin
  h:=FindWindow('SciCalc','Калькулятор');
  sh:=FindWindowEx(h,0,'Edit',nil);
  SendMessage(sh,WM_SETTEXT,0,LParam(PChar('MyTeeeeeeeext')));

[EVO-X]

Спасибо, получилось. Но проблема в том, что вставляется только в первое поле, а мне нужно чтобы вставлялось в 5 полей.

[_Dmitry]

Эта функция ищет Edit

 sh:=FindWindowEx(h,0,'Edit',nil);

Ищите следующие и заполняйте.
Например, следующая программа ищет в окне 5 Edit-ов и нумерует их

var
  i: integer;
  h,sh: HWND;   
begin   
  h:=FindWindow('TForm1','Form1');
  sh:=0;
  for i:=1 to 5 do
  begin
    sh:=FindWindowEx(h,sh,'TEdit',nil);
    SendMessage(sh,WM_SETTEXT,0,LParam(PChar(IntToStr(i))));
  end;

[EVO-X]

Огромное спасибо Вам _Dmitry, все получилось!

[terminadoor]

А можно в консольное приложение вставить, и считать результат?

[Роман Радер]

Как запустить консольное приложение и перехватить вывод?

procedure ExecCmdine(const CmdLine: string; CmdResult: TStrings);

var

Output: PIOFile;

Buffer: PChar;

TempString: string;

Line: string;

BytesRead: Integer;

 

const

BufferSize: Integer = 1000;

 

begin

Output := popen(PChar(CmdLine), 'r');

GetMem(Buffer, BufferSize);

if Assigned(Output) then

try

   while feof(Output) = 0 do

   begin

     BytesRead := Libc.fread(Buffer, 1, BufferSize, Output);

     SetLength(TempString, Length(TempString)+BytesRead);

     memcpy(@TempString[length(TempString)-(BytesRead-1)], Buffer, BytesRead);

     while Pos(#10, TempString) > 0 do

     begin

       Line := Copy(TempString, 1, Pos(#10, TempString)-1);

       if CmdResult<>nil then CmdResult.Add(Line);

       TempString := copy(TempString, Pos(#10, TempString)+1, Length(TempString));

     end;

   end;

finally

   Libc.pclose(output);

   wait(nil);

   FreeMem(Buffer,BufferSize);

end;

end;

Примечание - под отладчиком Kylix код может не работать. Надо запускать приложение не под Kylix для того чтобы удостовериться что код работает. Кроме того некоторые консольные приложения, типа top не совсем стандартно используют консоль, поэтому я наблюдала такое явление, что top можно запустить только если запускать готовое приложение в терминале.

©Drkb::04625

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

из drkb www.drkb.ru

[B_N]

Роман Радер код под UNIX.

[Роман Радер]

да, точно...
я не разобрался, просто увидел код и тема та что надо...

[Stilet]

Для Винды вот так:

 procedure ExecConsoleApp(CommandLine: AnsiString; Output: TStrings=nil; Errors:
  TStrings=nil);
var
  sa: TSECURITYATTRIBUTES;
  si: TSTARTUPINFO;
  pi: TPROCESSINFORMATION;
  hPipeOutputRead: THANDLE;
  hPipeOutputWrite: THANDLE;
  hPipeErrorsRead: THANDLE;
  hPipeErrorsWrite: THANDLE;
  Res, bTest: Boolean;
  env: array[0..100] of Char;
  szBuffer: array[0..256] of Char;
  dwNumberOfBytesRead: DWORD;
  Stream: TMemoryStream;
begin
  sa.nLength := sizeof(sa);
  sa.bInheritHandle := true;
  sa.lpSecurityDescriptor := nil;
  CreatePipe(hPipeOutputRead, hPipeOutputWrite, @sa, 0);
  CreatePipe(hPipeErrorsRead, hPipeErrorsWrite, @sa, 0);
  ZeroMemory(@env, SizeOf(env));
  ZeroMemory(@si, SizeOf(si));
  ZeroMemory(@pi, SizeOf(pi));
  si.cb := SizeOf(si);
  si.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
  si.wShowWindow := SW_HIDE;
  si.hStdInput := 0;
  si.hStdOutput := hPipeOutputWrite;
  si.hStdError := hPipeErrorsWrite;

  (* Remember that if you want to execute an app with no parameters you nil the
     second parameter and use the first, you can also leave it as is with no
     problems.                                                                 *)
  Res := CreateProcess(nil, pchar(CommandLine), nil, nil, true,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, @env, nil, si, pi);

  // Procedure will exit if CreateProcess fail
  if not Res then
  begin
    CloseHandle(hPipeOutputRead);
    CloseHandle(hPipeOutputWrite);
    CloseHandle(hPipeErrorsRead);
    CloseHandle(hPipeErrorsWrite);
    Exit;
  end;
  CloseHandle(hPipeOutputWrite);
  CloseHandle(hPipeErrorsWrite);

  //Read output pipe
  if Output<> nil then begin
  Stream := TMemoryStream.Create;
  try
    while true do
    begin
      bTest := ReadFile(hPipeOutputRead, szBuffer, 256, dwNumberOfBytesRead,
        nil);
      if not bTest then
      begin
        break;
      end;
      Stream.Write(szBuffer, dwNumberOfBytesRead);
    end;
    Stream.Position := 0;
    Output.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
  end;
  //Read error pipe
  if Errors <>nil then begin
  Stream := TMemoryStream.Create;
  try
    while true do
    begin
      bTest := ReadFile(hPipeErrorsRead, szBuffer, 256, dwNumberOfBytesRead,
        nil);
      if not bTest then
      begin
        break;
      end;
      Stream.Write(szBuffer, dwNumberOfBytesRead);
    end;
    Stream.Position := 0;
    Errors.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
   end;
  WaitForSingleObject(pi.hProcess, INFINITE);
  CloseHandle(pi.hProcess);
  CloseHandle(hPipeOutputRead);
  CloseHandle(hPipeErrorsRead);
end;

А вызывать примерно так:

ExecConsoleApp('dir *',listbox1.items);

По окончанию работы консоли, все что было в ней будет в ЛистБоксе

P.S. Не я автор, просто под себя приспособил. Хотя мелкомягкие могли бы облегчить такие проблемы...