Uygulamalara tuş göndermek (Open Office)

[Berdem]

Merhaba Arkadaşlar,
Daha önce @karflake arkadaşımızın makaleler ipucunda viewtopic.php?t=1587
editteki metni OpenOffice'deki metin belgesine gönderiyor.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  tut, harf: string;
begin
  WinExec('"C:\Program Files\OpenOffice.org1.1.4\program\soffice.exe" -writer', SW_SHOWNORMAL) ;
  AppActivate('Not Defteri');
  tut:=edit1.Text;
  for i:=1 to length(tut) do
  begin
    sleep(50);
    harf:=tut[i];
    SendKeys(PChar(harf),true);
  end;
end;

Amacım artık kullanıcılarıma M$ office ziyade OpenOffice sunmak istiyorum.
Burdaki asıl sorum richedit ve ya memodaki yazılı metni bütün özellikleriyle nasıl bu teknikle gönderebiliriz.Ve ya uygulayabileceğimiz farklı teknikler varmı?

[hbahadir]

bence bir dosya olarak kaydet metni ve ondan sonra programı o dosya ile birlikte açtır.

Kod: Tümünü seç

soffice dosyaadi.txt

[Berdem]

Çok Teşekkür ediyorum.Mantıklı bir düşünce....
Peki bu metodla nasıl yaparız?Burda Tsring de hata veriyor.Yardımlarınızı bekliyorum...

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
  i,z: Integer;
  harf: string;
  tut:TStrings;
begin
  WinExec('"C:\Program Files\OpenOffice.org1.1.4\program\soffice.exe" -writer', SW_SHOWNORMAL) ;
  AppActivate('Not Defteri');
   tut:=Memo1.Lines;
   z:=GetTextLen(Memo1.Lines);
  for i:=1 to z do
  begin
    sleep(50);
    harf:=tut[i];
    SendKeys(PChar(harf),true);
  end;
end;

[hbahadir]

Memo1.SaveToFile