<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>arjunsingh Tracker</title>
    <link>https://communities.vmware.com/wbsdv95928/tracker</link>
    <description>arjunsingh Tracker</description>
    <pubDate>Sat, 25 Nov 2023 11:03:49 GMT</pubDate>
    <dc:date>2023-11-25T11:03:49Z</dc:date>
    <item>
      <title>Win32 API does not work properly in Thinstall application</title>
      <link>https://communities.vmware.com/t5/ThinApp/Win32-API-does-not-work-properly-in-Thinstall-application/m-p/1665199#M4024</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Below is the program which works properly in non-thinstall application but not in thinstall application which is mentioned in bold.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Please help to solve this proble. &lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;-&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------" /&gt;&lt;P&gt; &lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Private Sub subShowRunningTasks()&lt;/P&gt;&lt;P&gt;' Show NBSS running tasks in the listview.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    Dim lngCurrWnd As Long&lt;/P&gt;&lt;P&gt;    Dim lngLen As Long&lt;/P&gt;&lt;P&gt;    Dim strWindowCaption As String&lt;/P&gt;&lt;P&gt;    Dim lngParent As Long&lt;/P&gt;&lt;P&gt;    Dim lngResult As Long&lt;/P&gt;&lt;P&gt;    Dim lngReturnValue As Long&lt;/P&gt;&lt;P&gt;    Dim strExePath As String&lt;/P&gt;&lt;P&gt;    Dim objNewItem As ListItem&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    ' Step through windows.&lt;/P&gt;&lt;P&gt;    lngCurrWnd = GetWindow(Me.hWnd, GW_HWNDFIRST)&lt;/P&gt;&lt;P&gt;    '&lt;/P&gt;&lt;P&gt;    While lngCurrWnd &amp;amp;lt;&amp;amp;gt; 0&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; &lt;STRONG&gt;lngLen = GetWindowTextLength(lngCurrWnd)&lt;/STRONG&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;      &lt;STRONG&gt;' it return 0 in Thinstall app but in non-thinstall app returns &amp;amp;gt;0 means something problem in API that not able to work properly with thinstall&lt;/STRONG&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;        MsgBox funstrGetExePathFromHwnd(lngCurrWnd)&lt;/P&gt;&lt;P&gt;        MsgBox WindowText(lngCurrWnd)&lt;/P&gt;&lt;P&gt;        If lngLen &amp;amp;gt; 0 Then&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;            If funblnIsTask(lngCurrWnd) Then&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;                ' Get the window caption (put into variable "strWindowCaption").&lt;/P&gt;&lt;P&gt;                strWindowCaption = Space(lngLen)&lt;/P&gt;&lt;P&gt;                GetWindowText lngCurrWnd, strWindowCaption, lngLen + 1&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;                ' Get the exe path.&lt;/P&gt;&lt;P&gt;                strExePath = funstrGetExePathFromHwnd(lngCurrWnd)&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;                If funblnInList(funstrExeName(strExePath), lstTasks) Then&lt;/P&gt;&lt;P&gt;                    Set objNewItem = lvwRunningTasks.ListItems.Add(, , strWindowCaption, 1, 1)&lt;/P&gt;&lt;P&gt;                End If&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;            End If&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;        End If&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;        lngCurrWnd = GetWindow(lngCurrWnd, GW_HWNDNEXT)&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    Wend&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;End Sub&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;-&lt;/P&gt;&lt;HR originaltext="------------------------------------------------------------------------------------------------------------------------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thanks,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Wed, 01 Jul 2009 09:25:37 GMT</pubDate>
      <guid>https://communities.vmware.com/t5/ThinApp/Win32-API-does-not-work-properly-in-Thinstall-application/m-p/1665199#M4024</guid>
      <dc:creator>arjunsingh</dc:creator>
      <dc:date>2009-07-01T09:25:37Z</dc:date>
    </item>
  </channel>
</rss>

