hola, bueno, lo que te doy aqui es un invento realmente, pero creo que funciona bien, solo que este depende de que Word este instalado en la PC donde quieres correr tu programa y rectificar ortografia...
si necesitas otra cosa y piensas que te puedo ayudar entonces solo pregunta...
coloca un edit en tu form y un button y en el evento onclick del button pon esto:
Código:
uses ComObj, ClipBrd, ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var
WindowName: string;
WindowHandle: Cardinal;
WordApp, Document, Selection: OleVariant;
begin
WordApp := CreateOleObject('Word.Application');
Document := WordApp.Documents.Add;
Selection := WordApp.Selection;
Selection.TypeText(Edit1.Text);
// Para que no salga la ventana del Word despues de revisar la gramtica/ortografia
WindowName := WordApp.ActiveDocument.FullName + ' - ' + WordApp.Application.Caption;
WindowHandle := 0;
WindowHandle := FindWindow(nil, pChar(WindowName));
SetWindowRgn(WindowHandle, CreateRectRgn(0,0,0,0), true);
// Empezamos revisar la ortografia
WordApp.ActiveDocument.CheckGrammar;
Selection.WholeStory;
Selection.Copy;
Edit1.Text := Clipboard.AsText;
// Mandamos a cerrar el Word con el programa TSkill
ShellExecute(Handle, nil, 'tskill', 'winword', nil, sw_hide);
end;
espero que te sirva esto,
saludos
aeff!!