OpenEuphoria

2. Re: SysTrayIconRemove

• Posted by mattlewis (admin) Jul 06, 2011
• 2816 views

junk = system_exec("taskkill /F /T /IM program.exe",2) 

system("start /MIN \"\" \"C:\\Program Files\\programBundle\\program\\program.exe\"",0) 

My guess is that the program isn't cleaning up after itself when it gets killed. You've probably tried this, but different flags passed to taskkill might allow the program to shut down more gracefully.

You might have better luck sending a WM_CLOSE message to the program, if possible. You might check out these from the archive for some ideas on how to accomplish that from within a euphoria program:

Matt

4. Re: SysTrayIconRemove

• Posted by andi49 Jul 07, 2011
• 2757 views

Maybe, this one helps you out. You haven't told what library you use (win32lib etc.). So this doesn't need any.

-- This closes (a freshly startet, no text loaded) notepad (at least on my machine) 
include dll.e 
include machine.e 
 
without warning 
 
constant    WM_CLOSE        =  #0010,   
            WM_QUIT         =  #0012,   
            WM_DESTROY      =  #0002 
             
constant caption_of_program_to_close = "untitled - notepad" -- change this to the caption of your prog 
-- constant caption_of_program_to_close = "c:\\windows\\system32\\cmd.exe"   
         
atom hwnd,void,szName 
 
constant    user32 = open_dll("user32.dll") 
constant    FindWindow = define_c_func(user32,"FindWindowA",{C_INT,C_INT},C_INT) 
constant    SendMessage = define_c_func(user32,"SendMessageA",{C_INT,C_INT,C_INT,C_INT},C_INT) 
 
 
szName=allocate_string(caption_of_program_to_close) 
 
-- Findwindow (in this case) is searching for a Window with the Caption  
-- the string szName points to. Case doesn't matter 
 
hwnd=c_func(FindWindow,{0,szName}) 
 
-- If it is succesfull it returns the handle to the window 
 
free(szName) 
 
-- Send the WM_CLOSE (or any other message) 
  
void=c_func(SendMessage,{hwnd,WM_CLOSE,0,0}) 
 
 

6. Re: SysTrayIconRemove

• Posted by useless Jul 07, 2011
• 2679 views

Nice code, but it closes only the open control panel window. It doesn't affect the exe or the icon in the systray.

Autoit has code that apparently does do this. Somehow, i figured Eu would too.

useless

8. Re: SysTrayIconRemove

• Posted by ne1uno Jul 20, 2011
• 2619 views

#define FW(x,y) FindWindowEx(x, NULL, y, L"") 
 
void RefreshTaskbarNotificationArea() 
{ 
    HWND hNotificationArea; 
    RECT r; 
 
    GetClientRect( 
        hNotificationArea = FindWindowEx( 
            FW(FW(FW(NULL, L"Shell_TrayWnd"), L"TrayNotifyWnd"), L"SysPager"), 
            NULL, 
            L"ToolbarWindow32", 
            L"Notification Area"), 
        &r); 
     
    for (LONG x = 0; x < r.right; x += 5) 
        for (LONG y = 0; y < r.bottom; y += 5) 
            SendMessage( 
                hNotificationArea, 
                WM_MOUSEMOVE, 
                0, 
                (y << 16) + x); 
} 

I started from original blog post, the formatting on the page had some mixed unicode quotes. that and lack of exact line numbers yesterday made debugging interesting for a while.

structs branch does need a way to redefine DWORD, UINT etc.

using eu4 structs branch, here's what I have. not sure it works yet. nothing obvious happens and I don't have a misbehaving program handy to test.

haven't found how to find which icon is under the mouse cursor yet. that should make it possible to obtain a HWND and get the struct the tooltip is passed in. you may also have to inject into the process to get it. solution may after all need something less programatic like Autoit due to windows bugs.

see the link to the VB code that should list the tooltips of all icons. I haven't integrated that code.

RefreshTaskbarNotificationArea pasty

10. Re: SysTrayIconRemove

• Posted by andi49 Jul 25, 2011
• 2401 views

Hallo, here is a piece of code that helps me get rid of some Icons from a Wlan USB Stick. It's a kind of BruteForce, because it forces the DesktopWindow and all it Childs to Redraw. So you maybe got some flicker on the screen.

Hope it helps

Andreas

include dll.e 
object  Void 
constant Null=0 
constant     user32 = open_dll("user32.dll") 
constant    myRedrawWindow = define_c_func(user32,"RedrawWindow",{C_ULONG,C_INT,C_INT,C_INT},C_INT) 
 
function or_all(sequence s) 
-- or together all elements of a sequence 
    atom result 
     
    result = 0 
    for i = 1 to length(s) do 
        result = or_bits(result, s[i]) 
    end for 
    return result 
end function 
 
-- RedrawWindow() flags  
global constant RDW_INVALIDATE      =#0001, 
        RDW_INTERNALPAINT   =#0002, 
        RDW_ERASE           =#0004, 
        RDW_VALIDATE        =#0008, 
        RDW_NOINTERNALPAINT =#0010, 
        RDW_NOERASE         =#0020, 
        RDW_NOCHILDREN      =#0040, 
        RDW_ALLCHILDREN     =#0080, 
        RDW_UPDATENOW       =#0100, 
        RDW_ERASENOW        =#0200, 
        RDW_FRAME           =#0400, 
        RDW_NOFRAME         =#0800  
         
procedure RedrawWindow(atom handle) 
 
--Parameters 
--hWnd [in]  
--A handle to the window to be redrawn. If this parameter is NULL, the desktop window is updated. 
 
 
--BOOL RedrawWindow( 
--  __in    HWND hWnd, 
--  __in    const RECT *lprcUpdate, 
--  __in    HRGN hrgnUpdate, 
--  __in    UINT flags 
-- ); 
    Void=c_func(myRedrawWindow,{handle,Null,Null,or_all({RDW_UPDATENOW,RDW_ALLCHILDREN,RDW_INVALIDATE,RDW_ERASE})})  
end procedure 
 
RedrawWindow(Null)