Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby
1. Цифровая криминалистика и реагирование на инциденты2. ОС Linux (DFIR) Старт: 16 мая3. Анализ фишинговых атак Старт: 16 мая
Устройства для тестирования на проникновение Старт: 16 мая
<!--QuoteBegin-QUOTE+Guest_Ronimi-->
<span class="vbquote">(QUOTE @ Guest_Ronimi)</span><!--QuoteEBegin-->На примере это будет так:
ShellExecute(handle, nil, PChar(command1), nil, 'c:\',SW_SHOWNORMAL);
где command1 - полный путь к ехе-шнику.
Удачи.[/quote]
Я написал
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar('c:\mcnp\m4b.exe'), nil, 'c:\',SW_SHOWNORMAL);
end;
end.
А в результате появилось сообщение об ошибке
Код:
[Error] Unit1.pas(28): Undeclared identifier: 'ShellExecute'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
В чем проблема?
И как можно выполнить комманды оболочки, на пример, комманду "move"?
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.