|
Astuces
- Système - Afficher
la boite "Executer" de Windows en Delphi |
Ajouter un composant TButton.
Uses
ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var ShellApplication:Variant;
begin
ShellApplication:=CreateOleObject('Shell.Application');
ShellApplication.FileRun;
end; |
|
|