On Rabu, 15 Februari 2012
siapkan sebuah button kemudian buat sebua button
procedure TForm1.Button1Click(Sender: TObject);
var
cmd : AnsiString;
begin
cmd := '';
ShellExecute (Handle ,'open', 'winword','F:\hp\wewe.docx', nil, SW_SHOW);
end;
var
cmd : AnsiString;
begin
cmd := '';
ShellExecute (Handle ,'open', 'winword','F:\hp\wewe.docx', nil, SW_SHOW);
end;
pada uses ditambakan ShellAPI
uses
ShellAPI,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
