請問各位大大，如何「開始」的「執行」？ 我在站內有找到這一篇文章 http://delphi.ktop.com.tw/topic.php?topic_id=35642 但是使用ｃ，我不會轉成Delphi用的語法，麻煩那個大大幫幫忙    感謝不禁！    ..-----------βλμε------------..
◎Ｏｏ月夜 光明 藍更愁ｏＯ◎
藍調月光城v4：http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調．月光)：http://mypaper2.ttimes.com.tw/user/a6475

------
月夜 光明 藍更愁

uses ComObj;    procedure TfrmMain.Button1Click(Sender: TObject);
var
  ShellApplication: Variant;
begin
  ShellApplication := CreateOleObject('Shell.Application');
  ShellApplication.FileRun;
end;

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Comobj, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  ShellOLE : Variant;
implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
begin
 ShellOLE := CreateOleObject('Shell.Application');
end;    procedure TForm1.FormDestroy(Sender: TObject);
begin
  ShellOLE := UnAssigned;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellOLE.FileRun;
end;    end.    

感謝各位大大，再請教一下，能不能設定執行視窗的顯示位置呢？    ..-----------βλμε------------..
◎Ｏｏ月夜 光明 藍更愁ｏＯ◎
藍調月光城v4：http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調．月光)：http://mypaper2.ttimes.com.tw/user/a6475

------
月夜 光明 藍更愁

可用 FindWindow(nil, '執行') 來取得該對話方塊的 window handle 然後再用 MoveWindow API 來決定顯示位置 不過, 當一執行 FileRun 之後 那對話方塊就跑出來了.

也許可以利用一下Panel的 坎入大法 把別人的程式坎進來 再移動你自己的程式 再 隱藏API hagar 兄 應該很知道 喔喔 喔喔

哦哦哦！還有Panel的 坎入大法 在那啊？沒看過相關文章！    ..-----------βλμε------------..
◎Ｏｏ月夜 光明 藍更愁ｏＯ◎
藍調月光城v4：http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調．月光)：http://mypaper2.ttimes.com.tw/user/a6475

------
月夜 光明 藍更愁

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25716 【問題】將外部程式放入程式指定的地方 研究看看 http://delphi.ktop.com.tw/loadfile.php?TOPICID=16321398&CC=365022 差不多 喝喝 發表人 - conundrum 於 2004/06/21 23:24:33