apa kabar temen2, aq mo nanya nih. Gimana caranya memanggil aplikasi ms word dengan sript di delphi? aq dah coba pake perintah: procedure TForm1.Button1Click(Sender: TObject); begin // aplikasi word ShellExecute(0,'open','D:\Docs\Book.doc','','',SW_SHOWNORMAL); end; tp g bisa. mohon bantuannya

jelas aa gak bisa coz shellexecute hanya dapat menjalankan file executable. jadi parameter untuk programmnya diisikan nama program induknya (msword) bukan dokumen hasil dari program tersebut. coba kode ini, barusan tak coba dan berhasil, isi parameternya ubah sendiri menurut alamat yang benar ya :

ShellExecute(0,'OPEN','D:\Program Files\Microsoft Office\OFFICE11\WINWORD.exe','F:\tes.rtf','',SW_SHOWNORMAL);

============================================== KEEP SPIRIT OF PROGRAMMING...!!!! ============================================== [/quote]

oh ya aq tanya lagi, aq dah tulis perintah: ShellExecute(0,'OPEN','D:\Program Files\Microsoft Office\OFFICE11\WINWORD.exe','F:\tes.rtf','',SW_SHOWNORMAL); tapi kok tetep ga jalan n perintahnya disorot merah. apa perintah shellexecute tu perlu dideklarasikan? sorry sih baru, mohon solusinya?

sudahkah dideklarasikan ini?

uses
  ShellAPI;

Barusan dah aq coba dgn mendeklarasikan ShellApi. hasilnya ga error lagi, tpi yg jd masalah begitu tommbol diklik file ms wordnya kok g muncul ya. pa perintahnya da yang kurang? ma'f ngrepotin, mohon bantuannya.

coba cek path untuk mswordnya, dah bener or belum and mungkin juga filenya coba buka langsung dengan wordnya, mungkin filenya rusak kali

Kalo delphi 3 dan 4 scriptnya seperti dibawah ini : uses Word_TLB; procedure StartWord(var WordApp: _Application; var WordDoc: _Document); var SaveChanges: OleVariant; begin try WordApp := CoApplication.Create; WordDoc := WordApp.Documents.Add(EmptyParam, EmptyParam); WordApp.Visible := True; except if Assigned(WordApp) then begin SaveChanges := wdDoNotSaveChanges; WordApp.Quit(SaveChanges, EmptyParam, EmptyParam); end; end; - versi diatasnya : uses Word_TLB; tidak ada arsip selengkapnya :http://delphicikk.atw.hu/listaz.php?id=2611

klo mswordnya ga muncul itu mungkin pathnya salah bisa dikarenakan versi wordnya beda( atw mang ga install ms word, xixiix) cobain pke ini u/ cek nya

if ShellExecute(0,'OPEN','C:\Program Files\Microsoft Office\OFFICE11\WINWORD.exe','D:\readme.rtf','',SW_SHOWNORMAL)<=32 then
      ShowMessage('Gagal menjalankan program.' +#13+ 'Pastikan path benar'); // u/ cek apakan si Word ada apa kagak ya

atw pake cara lain dengan OLE Container.

Barusan dah aq coba dgn mendeklarasikan ShellApi. hasilnya ga error lagi, tpi yg jd masalah begitu tommbol diklik file ms wordnya kok g muncul ya. pa perintahnya da yang kurang? ma'f ngrepotin, mohon bantuannya.

tolong cermati dulu maksud dari kodenya, sebenarnya banyak cara laen yang lebih dinamis misalnya seperti yang diberikan pada Maul_Aku tapi ada juga yang memeriksa register file di registry dahulu baru menjalankan file dengan program pengolahnya, tapi aku rasa cara yang aku berikan dah bisa koq, dah aku coba dan berhasil (di lab kampus tadi siang), pokoknya yang diperlukan adalah keimanan dan keteguhan hati (ha3x puitis banget ya!!! :D ) ======================================== KEEP SPIRIT OF PROGRAMMING...!!!! ========================================

ada tidak cara deteksi path word yg benar, kadang kan versinya beda dan tidak selalu install di path yg dimaksud .... ada ide ????