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

Тема в разделе "Delphi - FAQ", создана пользователем -, 28 апр 2004.

Статус темы:
Закрыта.
  1. Гость

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

    Vagor.ini Гость

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

    Guest_Ronimi Гость

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

    Guest_Ronimi Гость

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

    Barmutik Гость

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

    jack Гость

    <!--QuoteBegin-QUOTE+Guest_Ronimi-->
    <span class="vbquote">(QUOTE @ Guest_Ronimi)</span><!--QuoteEBegin-->На примере это будет так:
    ShellExecute(handle, nil, PChar(command1), nil, 'c:\',SW_SHOWNORMAL);
    где command1 - полный путь к ехе-шнику.
    Удачи.[/quote]
    Я написал
    Код (Text):
    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.
    А в результате появилось сообщение об ошибке
    Код (Text):
    [Error] Unit1.pas(28): Undeclared identifier: 'ShellExecute'
    [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
    В чем проблема?

    И как можно выполнить комманды оболочки, на пример, комманду "move"?
     
  7. zubr

    zubr Гость

    jack

    1. Чтобы компилятор не ругался добавь unit ShellAPI
    2. Правильно будет так
    Код (Text):
    ShellExecut(Handle, 'open', 'c:\mcnp\m4b.exe', nil, nil, SW_SHOWNORMAL);
    или с командой move
    Код (Text):
    ShellExecute(Handle, 'move', 'c:\mcnp\m4b.exe', nil, nil, SW_SHOWNORMAL);
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей