урок на делфи 39 - Запуск чужих программ
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs,ShellApi, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
{Программа подготовлена для ролика на ютубе https://youtu.be/1iZprvDJ1U8
И скачена с сайте http://dear-ruslan.ru
Автор Салихьянов Руслан. }
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,'open', 'c:\windows\system32\calc.exe', nil, nil, SW_SHOWNORMAL);
ShellExecute(Handle,'open', 'c:\windows\system32\', nil, nil, SW_SHOWNORMAL);
ShellExecute(Handle,'open', 'http://dear-ruslan.ru', nil, nil, SW_SHOWNORMAL);
ShellExecute(Handle,'open', 'c:\Desert.bmp', nil, nil, SW_SHOWNORMAL);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WinExec('c:\windows\system32\calc.exe',SW_SHOWNORMAL);
WinExec('C:\Windows',SW_NORMAL);
WinExec('C:\Windows\',SW_NORMAL);
WinExec('c:\Desert.bmp',SW_NORMAL);
end;
end.