Avtomatik
11.04.2013, 22:16
Прошу помочь с проектом , я хочу сделать так чтобы от кнопки запускать с windows любую программу которому дам значение .
// прошу помочь с кодом .
Avtomatik
12.04.2013, 00:33
если я вас снова понял ) то ...
ShellExecute (Form1.Handle, nil, '[Ссылки могут видеть только зарегистрированные и активированные пользователи]', nil, nil, SW_RESTORE); //запуск нашей странички
ShellExecute (Form1.Handle, nil, PChar (Application.ExeName), nil, nil, SW_RESTORE); //запуск второй копии этой программы
ShellExecute (Form1.Handle, nil, 'iexplore', '[Ссылки могут видеть только зарегистрированные и активированные пользователи]', nil, SW_RESTORE); //запуск в отдельном окне
ShellExecute (Form1.Handle, nil, 'mailto:[Ссылки могут видеть только зарегистрированные и активированные пользователи]?subject=delphi', nil, nil, SW_RESTORE); //написать мне письмо
ShellExecute (Form1.Handle, nil, 'c:\1.doc', nil, nil, SW_RESTORE); //открыть документ
но в Uses будет код следующего типа : uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, ShellAPI , Vcl.Dialogs;