PC Toledo

__wapi_GetACP()
__wapi_GetOEMCP()
contrib - hbwin.hbc:
wapi_AbortDoc()
wapi_AddFontResource()
wapi_AddFontResourceEx()
wapi_AppendMenu()
wapi_Arc()
wapi_CheckMenuItem()
wapi_CheckMenuRadioItem()
wapi_ComboBox_AddString()
wapi_CreateAcceleratorTable()
wapi_CreateDC()
wapi_CreateFont()
wapi_CreateFontIndirect()
wapi_CreateHatchBrush()
wapi_CreateMenu()
wapi_CreateMutex()
wapi_CreatePen()
wapi_CreatePopupMenu()
wapi_CreateSolidBrush()
wapi_CreateWindowEx()
wapi_DeleteMenu()
wapi_DestroyacceleratorTable()
wapi_DestroyMenu()
wapi_DestroyWindow()
wapi_DialogBoxParam()
wapi_DrawMenuBar()
wapi_DrawText()
wapi_Ellipse()
wapi_EnableMenuItem()
wapi_EnableScrollBar()
wapi_EndDialog()
wapi_EndDoc()
wapi_EndPage()
wapi_ExtTextOut()
wapi_FillRect()
wapi_FindWindow()
wapi_FormatMessage()
wapi_FreeLibrary()
wapi_GetACP()
wapi_GetActiveWindow()
wapi_GetBkColor()
wapi_GetBkMode()
wapi_GetCommandLine()
wapi_GetCurrentProcess()
wapi_GetCurrentProcessId()
wapi_GetCurrentThread()
wapi_GetCurrentThreadId()
wapi_GetDesktopWindow()
wapi_GetDeviceCaps()
wapi_GetDlgItem()
wapi_GetDlgItemText()
wapi_GetKeyState()
wapi_GetLastError()
wapi_GetLongPathName()
wapi_GetMapMode()
wapi_GetMenu()
wapi_GetMenuDefaultItem()
wapi_GetMenuItemCount()
wapi_GetMenuItemId()
wapi_GetMenuState()
wapi_GetModuleHandle()
wapi_GetOEMCP()
wapi_GetProcAddress()
wapi_GetScrollInfo()
wapi_GetScrollPos()
wapi_GetScrollRange()
wapi_GetShortPathName()
wapi_GetSubMenu()
wapi_GetSystemDirectory()
wapi_GetSystemMenu()
wapi_GetSystemMetrics()
wapi_GetTextAlign()
wapi_GetTextColor()
wapi_GetTextFace()
wapi_GetVolumeInformation()
wapi_GetWindowsDirectory()
wapi_ImageList_Add()
wapi_ImageList_AddMasked()
wapi_ImageList_BeginDrag()
wapi_ImageList_Copy()
wapi_ImageList_Create()
wapi_ImageList_Destroy()
wapi_ImageList_DragEnter()
wapi_ImageList_DragLeave()
wapi_ImageList_DragMove()
wapi_ImageList_DragShowNolock()
wapi_ImageList_Draw()
wapi_ImageList_DrawEx()
wapi_ImageList_Duplicate()
wapi_ImageList_GetBkColor()
wapi_ImageList_GetIcon()
wapi_ImageList_GetIconSize()
wapi_ImageList_GetImageCount()
wapi_ImageList_GetImageInfo()
wapi_ImageList_LoadImage()
wapi_ImageList_Merge()
wapi_ImageList_Remove()
wapi_ImageList_Replace()
wapi_ImageList_ReplaceIcon()
wapi_ImageList_SetBkColor()
wapi_ImageList_SetDragCursorImage()
wapi_ImageList_SetIconSize()
wapi_ImageList_SetImageCount()
wapi_InsertMenu()
wapi_IsIconic()
wapi_IsMenu()
wapi_IsUserAnAdmin()
wapi_IsWindow()
wapi_IsZoomed()
wapi_LineTo()
wapi_LoadImage()
wapi_LoadLibrary()
wapi_LoadMenu()
wapi_MessageBeep()
wapi_MessageBox()
wapi_MoveToEx()
wapi_MulDiv()
wapi_OpenMutex()
wapi_OutputDebugString()
wapi_PlaySound()
wapi_QueryPerformanceCounter()
wapi_QueryPerformanceFrequency()
wapi_Rectangle()
wapi_ReleaseMutex()
wapi_RemoveFontResource()
wapi_RemoveFontResourceEx()
wapi_RemoveMenu()
wapi_ResetDC()
wapi_RoundRect()
wapi_SelectObject()
wapi_SetActiveWindow()
wapi_SetBkColor()
wapi_SetBkMode()
wapi_SetDlgItemText()
wapi_SetErrorMode()
wapi_SetFocus()
wapi_SetLastError()
wapi_SetMapMode()
wapi_SetMenu()
wapi_SetMenuDefaultItem()
wapi_SetProcessWorkingSetSize()
wapi_SetScrollInfo()
wapi_SetScrollPos()
wapi_SetScrollRange()
wapi_SetTextAlign()
wapi_SetTextColor()
wapi_SetWindowPos()
wapi_ShellExecute()
wapi_ShowScrollBar()
wapi_Sleep()
wapi_StartDoc()
wapi_StartPage()
wapi_TabCtrl_AddItem()
wapi_TabCtrl_AdjustRect()
wapi_TabCtrl_Create()
wapi_TabCtrl_DeleteAllItems()
wapi_TabCtrl_DeleteItem()
wapi_TabCtrl_DeselectAll()
wapi_TabCtrl_GetCurFocus()
wapi_TabCtrl_GetCurSel()
wapi_TabCtrl_GetExtendedStyle()
wapi_TabCtrl_GetImageList()
wapi_TabCtrl_GetItem()
wapi_TabCtrl_GetItemCount()
wapi_TabCtrl_GetItemRect()
wapi_TabCtrl_GetRowCount()
wapi_TabCtrl_GetToolTips()
wapi_TabCtrl_GetUnicodeFormat()
wapi_TabCtrl_HighlightItem()
wapi_TabCtrl_HitTest()
wapi_TabCtrl_InsertItem()
wapi_TabCtrl_RemoveImage()
wapi_TabCtrl_SetCurFocus()
wapi_TabCtrl_SetCurSel()
wapi_TabCtrl_SetExtendedStyle()
wapi_TabCtrl_SetImageList()
wapi_TabCtrl_SetItem()
wapi_TabCtrl_SetItemExtra()
wapi_TabCtrl_SetItemSize()
wapi_TabCtrl_SetMinTabWidth()
wapi_TabCtrl_SetPadding()
wapi_TabCtrl_SetToolTips()
wapi_TabCtrl_SetUnicodeFormat()
wapi_TextOut()
wapi_TrackPopupMenu()
wapi_TreeView_CreateDragImage()
wapi_TreeView_DeleteAllItems()
wapi_TreeView_EditLabel()
wapi_TreeView_EndEditLabelNow()
wapi_TreeView_EnsureVisible()
wapi_TreeView_Expand()
wapi_TreeView_GetBkColor()
wapi_TreeView_GetCheckState()
wapi_TreeView_GetChild()
wapi_TreeView_GetCount()
wapi_TreeView_GetDropHilight()
wapi_TreeView_GetEditControl()
wapi_TreeView_GetFirstVisible()
wapi_TreeView_GetImageList()
wapi_TreeView_GetIndent()
wapi_TreeView_GetInsertMarkColor()
wapi_TreeView_GetISearchString()
wapi_TreeView_GetItem()
wapi_TreeView_GetItemHeight()
wapi_TreeView_GetItemRect()
wapi_TreeView_GetItemState()
wapi_TreeView_GetLastVisible()
wapi_TreeView_GetLineColor()
wapi_TreeView_GetNextItem()
wapi_TreeView_GetNextSibling()
wapi_TreeView_GetNextVisible()
wapi_TreeView_GetParent()
wapi_TreeView_GetPrevSibling()
wapi_TreeView_GetPrevVisible()
wapi_TreeView_GetRoot()
wapi_TreeView_GetScrollTime()
wapi_TreeView_GetSelection()
wapi_TreeView_GetTextColor()
wapi_TreeView_GetToolTips()
wapi_TreeView_GetUnicodeFormat()
wapi_TreeView_GetVisibleCount()
wapi_TreeView_HitTest()
wapi_TreeView_InsertItem()
wapi_TreeView_Select()
wapi_TreeView_SelectDropTarget()
wapi_TreeView_SelectItem()
wapi_TreeView_SelectSetFirstVisible()
wapi_TreeView_SetBkColor()
wapi_TreeView_SetCheckState()
wapi_TreeView_SetImageList()
wapi_TreeView_SetIndent()
wapi_TreeView_SetInsertMark()
wapi_TreeView_SetInsertMarkColor()
wapi_TreeView_SetItem()
wapi_TreeView_SetItemHeight()
wapi_TreeView_SetItemState()
wapi_TreeView_SetLineColor()
wapi_TreeView_SetScrollTime()
wapi_TreeView_SetTextColor()
wapi_TreeView_SetToolTips()
wapi_TreeView_SetUnicodeFormat()
wapi_TreeView_SortChildren()
wapi_WaitForMultipleObjects()
wapi_WaitForMultipleObjectsEx()
wapi_WaitForSingleObject()
wapi_WaitForSingleObjectEx()
wapi_WNetGetLastError()
__wapi_DEVMODE_Get()
__wapi_DEVMODE_New()
__wapi_DEVMODE_Set()

cjp escreveu:Já conferir que não há problema de espaço em disco.

cjp escreveu:Eu quero algo simples: listar os aplicativos que estão rodando no computador no momento.

/*
  Compilar: Hbmk2 exemplo -lxhb
*/

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PTISO

Function Main()

 HB_LANGSELECT("PT")
 HB_SETCODEPAGE("PTISO")
  
 /*
   Envie por parâmetro o nome do programa que você quer saber se está aberto.
   Por exemplo:
 */
 If EstaAberto( "winlogon.exe" )
  Hb_Alert( "Programa: winlogon.exe Está Aberto!" )
 Else
  Hb_Alert( "Programa: winlogon.exe Não Está Aberto!" )
 EndIf
 
Return Nil
 
Function EstaAberto( cQuem )
 Local aProcs := {}, nReturn, nPosi := 0
 
 nReturn := Win_PegaProcessos( aProcs )
 If nReturn = 1
  Hb_Alert( "Argument error" )
 ElseIf nReturn = 2
  Hb_Alert("Unable to obtain current process list.")
 ElseIf nReturn = 3
  Hb_Alert("Error retrieving information about processes.")
 EndIf
 
 For x = 1 To Len( aProcs )  // não usei AScan() para usar Upper()
  If Upper( aProcs[ x, 1 ] ) = Upper( cQuem )
   nPosi := x
   Exit
  EndIf
 Next
 
Return ( nPosi > 0 )  // Se está aberto retorna .T.


************************
#pragma BEGINDUMP
#include <windows.h>
#include <windef.h>
#include <tlhelp32.h>
#include <hbapi.h>
#include <hbapiitm.h>

/*
  WIN_PEGAPROCESSOS( aArray ) -> nResult
  Baseada na função WIN_GETPROCESSLIST() by Vailton Renato - 15/12/2009 - 18:58:58
*/

HB_FUNC( WIN_PEGAPROCESSOS )
{
  HANDLE hProcessSnap;
  PROCESSENTRY32 pe32;
  PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY );
  const char * szAppName = hb_parcx(2);
  BOOL bCanAdd = TRUE;

   if( !pArray )
   {
      hb_retni( 1 );
      return;
   }

  // Take a snapshot of all processes in the system.
  hProcessSnap = CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, 0 );

  if( hProcessSnap == INVALID_HANDLE_VALUE )
  {
    // CreateToolhelp32Snapshot (of processes)
    hb_retni( 2 );
    return;
  }

  // Set the size of the structure before using it.
  pe32.dwSize = sizeof( PROCESSENTRY32 );

  // Retrieve information about the first process,
  // and exit if unsuccessful
  if( !Process32First( hProcessSnap, &pe32 ) )
  {
    hb_retni( 3 );
    CloseHandle( hProcessSnap );          // clean the snapshot object
    return;
  }

  // Ignores a empty string on seconds argument
  if ( hb_parclen(2) < 1 )
      szAppName = NULL;

  // Now walk the snapshot of processes, and
  // display information about each process in turn
  do
  {
    PHB_ITEM pSubarray;

    if (szAppName)
      bCanAdd = ( hb_stricmp( szAppName, pe32.szExeFile ) == 0 );

    if (bCanAdd)
    {
       pSubarray = hb_itemNew( NULL );

       hb_arrayNew( pSubarray, 1 );
       hb_arraySetC    ( pSubarray, 1, pe32.szExeFile );   // Process Name

       hb_arrayAddForward( pArray, pSubarray );
    }
  } while( Process32Next( hProcessSnap, &pe32 ) );

  CloseHandle( hProcessSnap );
  hb_retni( 0 );
  return;
}

#pragma ENDDUMP