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

  • Автор темы Guest
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

Guest

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

Guest_Ronimi

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

Guest_Ronimi

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

jack

#6
<!--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"?
 
Z

zubr

#7
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);
 
Статус
Закрыто для дальнейших ответов.