Вывод в MS Word

@dubhardcore · Регистрация: 13.04.2013

Author24 — интернет-сервис помощи студентам

Добрый вечер дамы и господа! Начал делать курсовую и столкнулся с проблемой. Проблема такова:
При нажатии на кнопку, символ записывается только в текстовый документ. Нужно изменить так, что бы он выводил в MS Word или определял handle автоматически и записывал символ туда, где стоит курсор.
Переменная gg отвечает за capslock.
Очень много лазил, читал, у меня ничего не выходит. Надеюсь на вашу помощь.

Delphi

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
sim:char;
gg:boolean;
wnd:word;
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
wnd := FindWindow('notepad', nil);
  if wnd <> 0 then
  begin
  wnd := FindWindowEx(wnd, 0, 'Edit', nil);
  if gg=true then
  sim:=#201
  else
  sim:=#233;
  SendMessage(wnd, WM_CHAR, Word(sim), 0);
end;
end;
 
end.

@Storm Screamer · 16.05.2013, 08:49

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

Очень много лазил, читал, у меня ничего не выходит. Надеюсь на вашу помощь.

Не понятно, что вы читали, но вывод в Word делается по-другому. В этой теме есть ответы: Формирование договора. Запись данных в документ MS Word.

@Storm Screamer 2594 / 852 / 75 Регистрация: 21.04.2013 Сообщений: 6,751
	16.05.2013, 08:49	2
	Сообщение от dubhardcore Очень много лазил, читал, у меня ничего не выходит. Надеюсь на вашу помощь. Не понятно, что вы читали, но вывод в Word делается по-другому. В этой теме есть ответы: Формирование договора. Запись данных в документ MS Word. 1