окно "редактору кода" и ToolsAPI

[orkus]

Добрый день )
Проблема есть delphi7 у нее есть окно "редактору кода" (это там где Мы пишем код кто не знал )) )

Нужно написать программу которая в окне "редактору кода" начила писать код который находиться в мемо1 или еще где нибуть )

Мне нужно создать видимость что "Якобы кто то работает в делфи" в нашем случаи просто пишет код в определенной процедуре и всё как он напишет эту процедуру будет отдыхать ))

надо копать в направлении ToolsAPI а что имено ??

можно код (

[Вавел из ГМТУ]

Тебе нужен код, который бы писал код?

[raxp]

sendmessage дочернему окну delphi...

а ваще такие утилиты готовые уже есть в нете, гугль вам в помощь, по макросу могут даж не токо писать но окна юзать

[Stilet]

просто пишет код в определенной процедуре

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

[orkus]

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

Только тут малость проблема....

Вот именно нужно чтобы программа писала ИСКЛЮЧИТЕЛЬНО БЕЗ ОПЕЧАТОК!

Сообщение от Вавел из ГМТУ

Тебе нужен код, который бы писал код?

Да) ограничением пока 1 процедурой

[raxp]

эх-х, держи. дарю

const s= 'твой текст';

var h: HWND;
i: Integer;
si: TStartupInfo;
p: TProcessInformation;
Layout: array[0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout(StrCopy(Layout,' 00000419'),KLF_ACTIVATE);
FillChar(Si,SizeOf(Si),0);
with Si do begin
cb:= SizeOf( Si);
dwFlags:= startf_UseShowWindow;
wShowWindow:= 5
end;
Createprocess(nil,'notepad',nil,nil ,false,Create_default_error_mode,ni l,nil,si,p);
Waitforsingleobject(p.hProcess,2000 );
//i:= gettickcount; while gettickcount-i<2000 do;

h:= FindWindowEx(FindWindow('notepad', nil), 0, 'Edit', nil);
- ЗАМЕНИ НА handle дочернего ОКНА delphi (думаю с этим вы справитесь)

for i:= 1 to length(s) do SendMessage(h, $0102, ord(s[i]), 0)

[Lime]

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

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

Можно сделать псевдозадержки рандомом)
Вообще попросить "юзера" вбить текст аля "Сьеш ещё этих мягких или каких там булочек да выпей чаю" - и замерить скорость набора - далее его и имитировать с небольшим рандомом.

Сделать несдожный алгоритм перебега по строкам ... написал строку - пару энтеров сделал написал конец потом "вернулся" в начало так - же с парными "" / '' () <> итд... используя стандартные средства ввода без дополнительных фичей ( например вбивать просто в "memo" или в тот - же блокнот вроде не будет сложным.

Интересный вопрос
Как нибудь займусь этим )))

[alexBlack]

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

...надо копать в направлении ToolsAPI а что имено ??
можно код (

Создайте Package, добавьте этот модуль и установите. Сразу после установки увидите, как в редакторе добавляется строка

unit Unit26;
interface

uses Classes, StdCtrls;

type
  TMyButton= class(TButton)
  public
  end;

procedure Register;

implementation

uses ToolsAPI, SysUtils;

procedure Register;
begin
   RegisterComponents('Samples', [TMyButton]);
end;

function GetSourceEditor(M: IOTAModule): IOTASourceEditor;
var i: integer;
begin
   Result := nil;
   if M= nil then exit;
   for i := 0 to M.ModuleFileCount - 1 do
      if Supports(M.GetModuleFileEditor(i), IOTASourceEditor, Result)
      then break;
end;

procedure testSourceEditor;
var S : IOTAModuleServices;
    M : IOTAModule;
    ES : IOTASourceEditor;
    EV : IOTAEditView;
    P : IOTAEditPosition;
begin
   //ShowMessage('testSourceEditor');
   S := BorlandIDEServices as IOTAModuleServices;

   M := S.CurrentModule;
   ES := GetSourceEditor(M);
   EV := ES.GetEditView(0);
   EV.PageDown;
   EV.PageDown;
   P := EV.Position;
   P.InsertText('//procedure test;');
end;

initialization
   testSourceEditor;
end.

[orkus]

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

эх-х, держи. дарю

const s= 'твой текст';
var h: HWND;
i: Integer;
begin
H:=FindWindow(nil,PCHAR('Unit1.pas'));
SetForegroundWindow(H);
h:=GetWindow(h, GW_CHILD);
h:=GetWindow(h, GW_CHILD);

h:=GetWindow(h, gw_HWndNext );

h:=GetWindow(h, GW_CHILD);
h:=GetWindow(h, GW_CHILD);
h:=GetWindow(h, GW_CHILD);

for i:= 1 to length(s) do SendMessage(h, $0102, ord(s[i]), 0)

Вот что у меня получилоссь но он не работает (( ХЕНДЛ верно опр 100%

[orkus]

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

Создайте Package, добавьте этот модуль и установите. Сразу после установки увидите, как в редакторе добавляется строка

unit Unit26;
interface

uses Classes, StdCtrls;

type
  TMyButton= class(TButton)
  public
  end;

procedure Register;

implementation

uses ToolsAPI, SysUtils;

procedure Register;
begin
   RegisterComponents('Samples', [TMyButton]);
end;

function GetSourceEditor(M: IOTAModule): IOTASourceEditor;
var i: integer;
begin
   Result := nil;
   if M= nil then exit;
   for i := 0 to M.ModuleFileCount - 1 do
      if Supports(M.GetModuleFileEditor(i), IOTASourceEditor, Result)
      then break;
end;

procedure testSourceEditor;
var S : IOTAModuleServices;
    M : IOTAModule;
    ES : IOTASourceEditor;
    EV : IOTAEditView;
    P : IOTAEditPosition;
begin
   //ShowMessage('testSourceEditor');
   S := BorlandIDEServices as IOTAModuleServices;

   M := S.CurrentModule;
   ES := GetSourceEditor(M);
   EV := ES.GetEditView(0);
   EV.PageDown;
   EV.PageDown;
   P := EV.Position;
   P.InsertText('//procedure test;');
end;

initialization
   testSourceEditor;
end.

Что то я не понял (

Мне нужна НАПИСТАЬ ПРОГРАММУ котрая Создавала видемоть работы программиста а это вродебы не то или не так ?