請問: 如何讓raswin.exe這個執行檔能夠在delphi的form1中執行呢? 請大家幫幫忙~~~~謝謝~~~~

引言: 請問: 如何讓raswin.exe這個執行檔能夠在delphi的form1中執行呢? 請大家幫幫忙~~~~謝謝~~~~

如果你只是要做到從form1去呼叫一個外部的執行檔,可以使用ShellExecute去呼叫,使用方式如下: 記得uses shellapi; xPath := 'd:\MySql\Setup.exe'; //要執行檔案的路徑; ShellExecute(0, PChar('open'), PChar(xPath), nil, nil, SW_SHOW); ================================================================= ShellExecute有很多種呼叫方式,比如還有呼叫dos模式的com.exe來執行 ShellExecute(0, 'open', 'cmd.exe',PChar(xPath), '', SW_SHOWNORMAL); 上次在98平台用時就不能用com.exe了..好像要用command.com ~做中學,學中做~

http://groups.google.com.tw/groups?q=setparent+%2B+fnotepad+%2B+%22peter+below%22&hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&selm=VA.0000551a.0122062b%40antispam.compuserve.com&rnum=1

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Menus, AppEvnts;    type
  TForm1 = class(TForm)
    ApplicationEvents1: TApplicationEvents;
    procedure FormCreate(Sender: TObject);
    procedure ApplicationEvents1Activate(Sender: TObject);
  private
    { Private declarations }
    FNotepad: HWND;
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation
{$R *.DFM}    procedure TForm1.FormCreate(Sender: TObject);
var
  wnd: HWND;
  tries: Integer;
begin
  WinExec( 'notepad.exe', SW_HIDE );
  tries := 0;
  repeat
    wnd := Findwindow( 'notepad', nil );
    if wnd = 0 then begin
      inc( tries );
      sleep( 100 );
    end;
  until (wnd <> 0) or (tries > 10);
  if wnd <> 0 then begin
    windows.setparent( wnd, handle );
    application.title:= 'Notepad';
    MoveWindow( wnd, 0, 0, clientwidth, clientheight, false );
    ShowWindow( wnd, SW_SHOW );
    SetForegroundWindow( wnd );
    FNotepad := wnd;
  end
  else
    showmessage( 'Failed' );
end;    procedure TForm1.ApplicationEvents1Activate(Sender: TObject);
begin
  If IsWindow( FNotepad ) Then
    SetForegroundWindow( FNotepad )
  Else
    Close;
end;    end.

--- Everything I say is a lie.