ShowMessage

[krikaved]

Как сделать, чтобы при нажатии на кнопку открывалась программа, а если такой программы нет, то выдавало сообщение. У меня не очень получилось с кодом!

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if (Form1.Handle, nil, PChar('msaccess.exe'))=true then
  begin
  ShellExecute(Form1.Handle, nil, PChar('msaccess.exe'), nil, nil, SW_ShowNormal);
  end
else
if (Form1.Handle, nil, PChar('msaccess.exe'))=false then
  begin
  ShowMessage('Данная программа не установлена на Вашем компьютере!');
  end;
end;

[uberchel]

Держи:

function Exec(FileName: string): Integer;
begin
 if FileExists(FileName) then
  Result:= WinExec(Pchar(FileName),SW_NORMAL)
 else
 begin
  ShowMessage('Ôàéë íå íàéäåí');
  Result:= 0;
 end;
end;

Вот функция а проверку существования файла: FileExists()

[krikaved]

А если сделать не функцией, а процедурой по клику кнопки?
У меня таких кнопок 30. И что завести 30 функций!

[mihali4]

Сообщение от krikaved

Как сделать, чтобы при нажатии на кнопку открывалась программа, а если такой программы нет, то выдавало сообщение. У меня не очень получилось с кодом!

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if (Form1.Handle, nil, PChar('msaccess.exe'))=true then
  begin
  ShellExecute(Form1.Handle, nil, PChar('msaccess.exe'), nil, nil, SW_ShowNormal);
  end
else
if (Form1.Handle, nil, PChar('msaccess.exe'))=false then
  begin
  ShowMessage('Данная программа не установлена на Вашем компьютере!');
  end;
end;

Совершенно дикий анализ...
Ну почитайте хотя бы встроенный хэлп по ShellExecute:

Return Values

If the function succeeds, the return value is the instance handle of the application that was run, or the handle of a dynamic data exchange (DDE) server application.
If the function fails, the return value is an error value that is less than or equal to 32.

Ведь все у вас под руками...
Неужели абсолютно все "букаффки" нужно разжевывать на страницах форума ?
А что, если чуть-чуть своих мозгов задействовать ?

З.Ы. И, христом-богом прошу, скачайте себе хоть одну книжку для начинающих...
http://www.programmersforum.ru/showthread.php?t=14054

[krikaved]

Вот что у меня получилось!

...
var
  F_Programms: TF_Programms;
  FileName: string;
...
function Exec(FileName: string): Integer;
begin
if not FileExists(FileName) then
  begin
  Result:=ShellExecute(F_Programms.Handle, nil, PChar(FileName), nil, nil, SW_ShowNormal);
  F_Programms.Close;
  end
else
  begin
  ShowMessage('Данная программа не установлена на Вашем компьютере!');
  Result:=0;
  end;
end;
procedure TF_Programms.SpeedButton1Click(Sender: TObject);
begin
FileName:='winword.exe';
Exec(FileName);
end;
procedure TF_Programms.SpeedButton2Click(Sender: TObject);
begin
FileName:='excel.exe';
Exec(FileName);
end;
procedure TF_Programms.SpeedButton3Click(Sender: TObject);
begin
FileName:='msaccess.exe';
Exec(FileName);
end;
// и так далее...

Вопрос в том, что строчку "if not FileExists(FileName) then" надо заменить на правильную. Получается "Если файла не существует", но он то существует.
Если сделать if not FileExists(FileName), то открывается соответствующая программа, а если поменяешь путь, к примеру, FileName:='excel.exe111', то должно срабатывать ShowMessage, а оно не срабатывает!
Если if FileExists(FileName), то всё время срабатывает ShowMessage.
Подскажите пожалуйста!!!

[uberchel]

Если уж на то пошло, то:
if FileExists(FileName) - проверяет, если файл или нет.

function Exec(FileName: string): Boolean;
begin
 if FileExists(FileName) then //файл существует,то
 begin
  Result:= WinExec(Pchar(FileName),SW_NORMAL)
  Result:= True;
 end
 else //а если файл не существует
 begin
  ShowMessage('Файл не найден');
  Result:= False;
 end;
end;

Применение:

procedure TF_Programms.SpeedButton1Click(Sender: TObject);
begin
Exec(winword.exe);
end;
procedure TF_Programms.SpeedButton2Click(Sender: TObject);
begin
Exec('excel.exe);
end;
procedure TF_Programms.SpeedButton3Click(Sender: TObject);
begin
Exec(msaccess.exe);
или можно еще так
if Exec(msaccess.exe) then
//Если функция выполнилась
else
//если не выполнилась
end;

[krikaved]

Всё работает, спасибо. Просто мне путь к файлу нужно было писать полностью.
Вот так правильней:

WinExec(Pchar(FileName),SW_NORMAL); // не надо Result:= 
Result:= True;