fdfs .txt

超级简单的管理系统

shellexecute(handle,'open',pchar('winword'),nil,nil,sw_show);
end;

procedure TForm1.exexl1Click(Sender: TObject);
begin
   shellexecute(handle,'open',pchar('EXCEL'),nil,nil,sw_show);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('CALC.EXE'),nil,nil,sw_show);
end;

procedure TForm1.N3Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('NOTEPAD.EXE'),nil,nil,sw_show);
end;

end.
shellApi