shellexecute 中的SW—HEDE为什么不起作用？急急急！！！(50分)

shineya · 2002-01-16

用SHELLEXECUTE启动其他应用程序并希望在启动之时就隐藏它，为什么用了SW_HIDE 还不起作用（程序窗体仍然显现出来了）？

yzhshi · 2002-01-16

刚才实验了一下，这个可以 ShellExecute(Handle,nil,'C:/Command.com',nil,'C:/',SW_Hide); 这个不可以 ShellExecute(Handle,nil,'Calc.Exe',nil,'C:/Windows',SW_Hide); 因此判断应该是所属的Application和Form.Handle不一致的问题吧，他将Application 给隐藏了，本身就是不可见的，即使Show，也没戏，但是又有一点解释不通了，使用 SW_SHOWMAXIMIZED却有效，没办法，等高手解决吧。

jrq · 2002-01-16

shineya · 2002-01-16

MIXIMIZE和MINIMIZE是都可以的，甚至用3，7，9等数字代替SW_XXXX都可以， 但就篇HIDE没有作用，期待更合理的回答！对了，谁能给我提供一些国外的 DELPHI论坛网址，谢了！

shineya · 2002-01-16

快来呀，50分呢！

cxzhu · 2002-01-16

改用CreateProcess吧 var   zAppName:array[0..512] of char;   StartupInfo:TStartupInfo;   ProcessInfo:TProcessInformation; begin   zAppName:='c:/windows/calc.exe'     FillChar(StartupInfo,Sizeof(StartupInfo),#0);   StartupInfo.cb := Sizeof(StartupInfo);   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;   StartupInfo.wShowWindow := SW_MINIMIZE;   if not CreateProcess(nil,     zAppName,          { pointer to command line string }     nil,   { pointer to process securityattributes }     nil,   { pointer to thread security attributes }     false, { handle inheritance flag }     NORMAL_PRIORITY_CLASS,     nil,   { pointer to new environment block }     nil,   { pointer to current directory name }     StartupInfo,       { pointer to STARTUPINFO }     ProcessInfo)       { pointer to PROCESS_INF }   then    raise Exception.Create('execution error!') end;

shineya · 2002-01-18

cxzhu，谢谢你的参与，可是我没用过CREATEPROCESS，不知道怎样创建它， 你的代码调试没通过，能不能给的再详细点！

xyf2001721 · 2002-01-18

不是可以用Application.Show(Main)Form := False;

cxzhu · 2002-01-18

//所有源程序都给你吧，希望多给点分。 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     hnd: THANDLE     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} function WinExec_NoShow(FileName:String):THANDLE; var   zAppName:array[0..512] of char;   zCurDir:array[0..255] of char;   WorkDir:String;   StartupInfo:TStartupInfo;   ProcessInfo:TProcessInformation;   returnresult

WORD;   i: integer; begin   StrPCopy(zAppName,FileName);   WorkDir := ExtractFilePath(ParamStr(0));   StrPCopy(zCurDir,WorkDir);   FillChar(StartupInfo,Sizeof(StartupInfo),#0);   StartupInfo.cb := Sizeof(StartupInfo);   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;   StartupInfo.wShowWindow := SW_SHOWDEFAULT;   if CreateProcess(nil,         zAppName,          { pointer to command line string }         nil,   { pointer to process securityattributes }         nil,   { pointer to thread security attributes }         false, { handle inheritance flag }         CREATE_SUSPENDED,         nil,   { pointer to new environment block }         nil,   { pointer to current directory name }         StartupInfo,       { pointer to STARTUPINFO }         ProcessInfo)       { pointer to PROCESS_INF }   then     Result := ProcessInfo.hThread   else     Result := NULL; end; procedure TForm1.Button1Click(Sender: TObject); begin   hnd := WinExec_NoShow('calc');   if hnd = NULL then     ShowMessage('creation error'); end; procedure TForm1.Button2Click(Sender: TObject); begin   if hnd <> NULL then     ResumeThread(hnd); end; end.

shineya · 2002-01-18

谢谢CXZHU，我要认真研究一下CREATEPROCESS，不过程序能通过的话， 我会先记上你的20分的。

shineya · 2002-01-23

to:cxzhu,不好意思，近段出差了，我的程序已完成，我放弃了这项功能。现在很忙， 没有时间研究，不过你的代码我在D6下通不过，NULL错误，不知什么原因，请指教。

yzhshi · 2002-01-23

cxzhu · 2002-01-24

我是在D5下调试的，一切顺利。 以下引用Delphi 5 Help Null variable See also ------------------------------------------------------------------------------- Null represents the null Variant. Unit System Category variant support routines var Null: Variant; Description Use Null to indicate unknown or missing data. Null can be assigned to variables in an application that must contain a null value. Assigning Null to a Variant variable does not cause an error, and Null can be returned from any function with a Variant return value. Assigning Null to a variable of any type other than Variant causes either a compile-time error or raises an EVariantError exception. For example, in the following code the assignment of v, the Null Variant, to Variant q is successful;  whereas the conversion of Variant v, which is now Null, to the integer return type of the Test function, raises an exception. function Test(v: Variant): Integer; var   q: Variant;   msg: string; begin   q := v; { this is ok, since q is a variant }   if VarIsNull(q) then     msg := 'q is a null variant'   else     msg := 'q is not a null variant';   ShowMessage(msg);   Result := v; { this raises an exception!!!} end; procedure TForm1.Button1Click(Sender: TObject); begin   Test(Null); end; Expressions involving Null always result in Null. Thus, Null is said to "Propagate"through intrinsic functions that return Variant data types. If any part of the expression evaluates to Null, the entire expression evaluates to Null.

shineya · 2002-01-24

to:cxzhu, under delphi 6, compile error shows, undeclared identifier 'NULL', refer to every statement 'Result := Null;' I am quite puzzling, null need not to be declared, I think. Hope to help me. Thanks.

shineya · 2002-02-21

不好意思,这么长时间没能上网,现把问题结束。谢谢各位参与。

shellexecute 中的SW—HEDE为什么不起作用？急急急！！！(50分)

shineya

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

jrq

Unregistered / Unconfirmed

shineya

Unregistered / Unconfirmed

shineya

Unregistered / Unconfirmed

cxzhu

Unregistered / Unconfirmed

shineya

Unregistered / Unconfirmed

xyf2001721

Unregistered / Unconfirmed

cxzhu

Unregistered / Unconfirmed

shineya

Unregistered / Unconfirmed

shineya

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

cxzhu

Unregistered / Unconfirmed

shineya

Unregistered / Unconfirmed

shineya

Unregistered / Unconfirmed

Similar threads