[RESOLVED] Shell Problem

[danasegarane]

Hi all,
I am using shell and wait api to execute some exe.But the problem is that it gives a minize,maximize and close Button.If the user Press the close button, the process get affected.Is it able to hide the close button in shell and wait function.



Thanks in Advance

[Shuja Ali]

You can use RemoveMenu API to remove the Close button from the Window? Or a better way would be hide it from the User.

[danasegarane]

Dear RRN78,
I think you are wrong.Please the read the post.

[rory]

remove it in your program, or the external process?

[danasegarane]

I am running a external process.;

[Shuja Ali]

I am running a external process.;

Did you take a look at my Post #3

[danasegarane]

dear Suja,
Please give an example for that API

[triggernum5]

Would you like the new process to be completely hidden, or do you need it to be visible but tamperproof? Is it a windowed process, or a CMD dos app?

[danasegarane]

It will be better if you it is hidden also.

[Shuja Ali]

The better way would be to Hide the process from the User. And regarding your example, if you do a search here for RemoveMenu API you will get 100s of examples.

Also check www.allapi.net

[danasegarane]

Please Suggest the way of hidding the shell and wait process

[Joacim Andersson]

There is no API called RemoveSystemMenu, the name of the function is simply RemoveMenu. You just need to get the handle of the system menu first which you do with a call to GetSystemMenu. You'll need to know the hWnd of the window from which you want to remove the menu item. Since I don't know how you launch your application I can't help you with that more than that you could use FindWindow to get it. But there might be other ways depending on how you shell the app. Anyway when you know the hWnd you can use code simular to the following:

Private Declare Function GetSystemMenu Lib "user32.dll" ( _
    ByVal hWnd As Long, _
    ByVal bRevert As Long _
) As Long
 
Private Declare Function RemoveMenu Lib "user32.dll" ( _
    ByVal hMenu As Long, _
    ByVal nPosition As Long, _
    ByVal wFlags As Long _
) As Long
 
Private Const SC_CLOSE As Long = &HF060&
Private Const MF_BYCOMMAND As Long = &H0&
 
Public Sub RemoveClose(ByVal hWnd As Long)
    'Remove the Close command from the window associated with the hWnd
    'passed as the argument.
    Dim hMenu As Long
    hMenu = GetSystemMenu(hWnd, 0)
    If hMenu Then
        Call RemoveMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
    End If
End Sub

[Shuja Ali]

It will be better if you it is hidden also.

Then instead of using SW_SHOWNORMAL use SW_HIDE when you call ShellExecute API.

Public Const SW_HIDE = 0

[Shuja Ali]

There is no API called RemoveSystemMenu, the name of the function is simply RemoveMenu.

I can't beleive that I have been writing RemoveSystemMenu instead of RemoveMenu.

Thanks for correcting that.

[danasegarane]

Is there any method to run the shelled file in hidden mode.

[gavio]

Shell "c:\myApp.exe", vbHide 'you can locate it on the task manager later

[triggernum5]

One thing to note is that Shell() runs concurrently with the rest of your program.. It does not wait until the process finishes before executing the lines after Shell().. This link points to a more diverse routine..
http://www.vbforums.com/showpost.php...96&postcount=8

[Shuja Ali]

Is there any method to run the shelled file in hidden mode.

Can you post the code for ShellExecute that you are using. You just have to replace SW_SHOWNORMAL with SW_HIDE.

[danasegarane]

Dear Suja,
I am using the following code.I am using the "Exec" Portion only.I
want to hide the shelled process.

Shell and wait

[Shuja Ali]

Before calling the CreateProcess API set the dwShowWindow to 0.

start.wShowWindow = 0

[Joacim Andersson]

Before calling the CreateProcess API set the dwShowWindow to 0.

start.wShowWindow = 0

That's not enough, you also need to set the dwFlags member to STARTF_USESHOWWINDOW otherwise the wShowWindow is ignored (since you never set a value to wShowWindow it's already equal to 0). Changes shown in bold

Private Sub ExecCmd(CmdLine As String)
[b]    Const STARTF_USESHOWWINDOW As Long = &H1 [/b]
    Dim proc As PROCESS_INFORMATION
    Dim start As STARTUPINFO
    Dim ret As Long
    ' Initialize the STARTUPINFO structure:
    start.cb = Len(start)
[b]    start.dwFlags = STARTF_USESHOWWINDOW [/b]
    ' Start the shelled application:
    ret = CreateProcessA(0&, CmdLine, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
    ' Wait for the shelled application to finish:
    ret = WaitForSingleObject(proc.hProcess, INFINITE)
    ret = CloseHandle(proc.hProcess)
End Sub

[danasegarane]

Dear JA,
Thanks for your code.I will try and will reply.

[danasegarane]

Thanks to all.My have got it.