выполнение файла

[DLev2]

мне нужно из программы запустить exe файл.
например edit1.text;
скинте код или процедурку пожалуйсто

[ОДИНОЧЕСТВО В СЕТИ]

uses ShellAPI;
…
var
  h: hwnd;
begin
// Используем ShellExecute
  if ShellExecute(0, 'open', PChar(edit1.text), nil, nil, SW_SHOW) < 32 then
    begin
      ShowMessage('Немогу выполнить ShellExecute !')
    end;
// Используем WinExec
  if WinExec(PChar(edit1.text), SW_SHOW) < 32 then
    begin
      ShowMessage('Немогу выполнить WinExec !')
    end;
end;

в edit путь к exe

[DLev2]

не канает

[ОДИНОЧЕСТВО В СЕТИ]

код покажи!
читать тут

[DLev2]

uses ShellAPI;

var
s:string;
h: hwnd;



begin
s:='C:\hi.exe';
if ShellExecute(0, 'open', PChar(s), nil, nil, SW_SHOW) < 32 then
begin
ShowMessage('Íåìîãó âûïîëíèòü ShellExecute !')
end;

if WinExec(PChar(s), SW_SHOW) < 32 then
begin
ShowMessage('Íåìîãó âûïîëíèòü WinExec !')
end;
end;


причем он выполняет обе функции, если по одной то тоже ничего не происходит

[ОДИНОЧЕСТВО В СЕТИ]

procedure TForm1.btn1Click(Sender: TObject);
var s:string;
begin
  s:='C:\Program Files\Paint.NET\PaintDotNet.exe';
   ShellExecute(0, 'open', PChar(s), nil, nil, SW_SHOW);

end;

procedure TForm1.btn1Click(Sender: TObject);
var s:string;
begin
  s:='C:\Program Files\Paint.NET\PaintDotNet.exe';
   WinExec(PChar(s), SW_SHOW);

end;

все работает! у меня такая же!!! прикрепи проект!

[DLev2]

win XP sp 3

[DLev2]

но это у меня не кнопка, а на создание формы стоит, но поидее это же без разницы

[DLev2]

у меня и твое не запускает

[Пепел Феникса]

версия Делфи?
скинь проект с запуском из эдита по кнопке.