新手求教一个简单的 文件调用问题

Question

我在登陆窗体的文件夹里面又建立了一个文件夹“入库”，里面新建了我要调用的工程。我想实现在单击登陆窗体上的一个label控件时，他能调用“入库”文件夹里面的工程或者单元。代码怎么实现。

Answer 1

没明白，是要运行exe？ShellExecute(handle, 'open','c:\Project1.exe','参数',nil, SW_SHOWNORMAL);

Answer 2

procedure TForm4.label1onclick(Sender: TObject);
begin
    //user Unit1.pas from rukuguanli;
    //ExtractFilePath(ParamStr(0))+'毕业设计\rukuguanli';
    ShellExecute(handle, 'open','F:\设计备份\test\毕业设计\rukuguanli\Project1.exe','参数',nil, SW_SHOWNORMAL);end;不行啊 ，就是单击后切换到另外一个文件夹里面的窗口......

Answer 3

楼主你是要调用例外一个工程文件还是你想把工程文件的单元放到同目录下的文件下再来调用呢？
菜单project下的 add to project 找到你要的文件，在.pas中uses一下就ok
  program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'tt\Unit3.pas' {Form3};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.unit Unit1;interfaceuses
  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;implementationuses  Unit3;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
application.CreateForm(tform3,form3);
form3.showmodal;
end;end.