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

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

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

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

    Vagor.ini Гость

    Репутация:
    0
    Юзай в help'е инфу по ShellExecute
     
  3. Guest_Ronimi

    Guest_Ronimi Гость

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

    Guest_Ronimi Гость

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

    Barmutik Гость

    Репутация:
    0
    Или уж если совсем просто то: WinExec
     
  6. jack

    jack Гость

    Репутация:
    0
    <!--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"?
     
  7. zubr

    zubr Гость

    Репутация:
    0
    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);
     
Загрузка...
Статус темы:
Закрыта.

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