Ссылка на другую прогу

[Guest]

Подскажите, как мне сделать ссылку на другую прогу. Т.е. чтобы по нажатию кнопки вызывался посторонные экзешник. Помогите, очень надо.

 

[Vagor.ini]

Юзай в help'е инфу по ShellExecute

 

[Guest_Ronimi]

На примере это будет так:
ShellExecute(handle, nil, PChar(command1), nil, 'c:\',SW_SHOWNORMAL);
где command1 - полный путь к ехе-шнику.
Удачи.

 

[Guest_Ronimi]

На примере это будет так:
ShellExecute(handle, nil, PChar(command1), nil, 'c:\',SW_SHOWNORMAL);
где command1 - полный путь к ехе-шнику.
Удачи.

 

[Barmutik]

Или уж если совсем просто то: WinExec

 

[jack]

<!--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"?

 

[zubr]

jack

1. Чтобы компилятор не ругался добавь unit ShellAPI
2. Правильно будет так

ShellExecut(Handle, 'open', 'c:\mcnp\m4b.exe', nil, nil, SW_SHOWNORMAL);

или с командой move

ShellExecute(Handle, 'move', 'c:\mcnp\m4b.exe', nil, nil, SW_SHOWNORMAL);