fdfs .txt

来自「超级简单的管理系统」· 文本 代码 · 共 20 行

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