フォームの無いアプリから他のアプリの起動

解決


Kanama  2009-01-15 20:38:45  No: 33142  IP: [192.*.*.*]

フォームの無いアプリから他のアプリの起動を行いたいです。

現在、下記のコードですが、下から2行目の「Handle」にて、
「Handleは宣言されていません」となります。

正常動作するフォームあり版で確認したところ、
Handleは「System.Cardinal」に属するようなのでuses節に Sytem を
追加してみたものの、「Systemの多重定義」と出てしまいます。

どうすれば、フォームの無いアプリから他のアプリの起動できるのでしょうか?

//-------------------------------------------
//  Project1.dpr
//-------------------------------------------
program Project1;

uses
  Windows ,Forms, ShellAPI;

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Run;

  ShellExecute(Handle,'OPEN',PChar('C:\WINDOWS\system32\notepad.exe'),'','',SW_SHOW);
end.
//--------------------------------------------

編集    削除
Manbon  2009-01-15 20:47:03  No: 33143  IP: [192.*.*.*]

ShellExecute(0,
とか、
ShellExecute(Application.Handle,
とかですかね。

編集    削除
Kanama  2009-01-15 20:49:45  No: 33144  IP: [192.*.*.*]

Manbonさん。
出来ました、ありがとうございました。

ShellExecute(Handle
ShellExecute(0
ShellExecute(Application.Handle,
について、勉強したいと思います。

編集    削除