View Replies (6)
Resolved Power Builder - Windows process listing
  1. New
  2. How-to
0 Votes
  1. Ramón San Félix Ramón
  2. PowerBuilder
  3. Thursday, 29 May 2025 06:29 AM UTC

Hi, does anyone have a method for listing running processes in Windows? I created this object called n_Cst_windows_process, and running at 64 bits, it lists the processes, but it eats up some characters. I must have declared the structure incorrectly or some external function. If anyone could help, it would be appreciated.

 

forward
global type n_cst_windows_process from nonvisualobject
end type
type processentry32 from structure within n_cst_windows_process
end type
end forward

type PROCESSENTRY32 from Structure
   ulong dwSize
    ulong cntUsage
    ulong th32ProcessID
    longptr th32DefaultHeapID      // Cambiar longptr a ulonglong
    longptr th32ModuleID           // Cambiar longptr a ulonglong  
    ulong cntThreads
    ulong th32ParentProcessID
    long  pcPriClassBase
    ulong dwFlags
    character szExeFile[260]
end type

shared variables

end variables

global type n_cst_windows_process from nonvisualobject autoinstantiate
end type

type prototypes
Function longptr CreateToolhelp32Snapshot(ulong dwFlags, ulong th32ProcessID) Library "kernel32.dll"
Function boolean Process32FirstW(longptr hSnapshot, ref PROCESSENTRY32 lppe) Library "kernel32.dll"
Function boolean Process32NextW(longptr hSnapshot, ref PROCESSENTRY32 lppe) Library "kernel32.dll"
Function boolean CloseHandle(ulong hObject) Library "kernel32.dll"
end prototypes

type variables
CONSTANT ulong		TH32CS_SNAPPROCESS 		=  2						// 0x00000002
end variables

forward prototypes
public function any of_list_process ()
end prototypes

public function any of_list_process ();PROCESSENTRY32 lstr_pe
Ulong lul_hSnap
Boolean lb_rtn
String ls_processArray[]
String ls_process
Integer li_char, li_process

// Asignar tamaño real de la estructura
lstr_pe.dwSize = 568

lul_hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)

IF lul_hSnap <= 0 THEN
    MessageBox("Error", "No se pudo obtener snapshot de procesos.")
    RETURN false
END IF

lb_rtn = Process32FirstW(lul_hSnap, lstr_pe)

DO WHILE lb_rtn
    // Convierte el array de caracteres a string, deteniéndose en el primer carácter nulo
    ls_process = ""
    FOR li_char = 1 TO 260
       IF lstr_pe.szExeFile[li_char] = Char(0) THEN EXIT
        ls_process += string(lstr_pe.szExeFile[li_char])
    NEXT
	li_process ++
	ls_processArray[li_process] = ls_process
    lb_rtn = Process32NextW(lul_hSnap, lstr_pe)
LOOP

CloseHandle(lul_hSnap)

Return  ls_processArray[] 



end function

on n_cst_windows_process.create
call super::create
TriggerEvent( this, "constructor" )
end on

on n_cst_windows_process.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on
Attachments (1)
WindowsProcessTest.zip
Issue when trying to run a bat file to build a powerbuilder ... Rounded Command Button
Who is viewing this page
liza dia
Responses (6)
  1. Likes
  2. Latest
  3. Oldest

Find Questions by Tag

.EXE .NET 6.0 .NET Assembly .NET Core 3.1 .NET Core Framework .NET DataStore .NET Std Framework 32-bit 64-bit ADO.NET AEM AI Algorithm Amazon AWS Android Apache API APK App Store App Store (Apple) Appeon Workspace Appeon Xcelerator Plug-in Architecture Array ASE Asynchronous Methods Authentication AutoBuild AutoCompiler Automated Testing Automation AutoScript Azure Barcode Base64 Batch BigData BLOB Branch & Merge Browser Bug Build Button C# C# Class Importer C# Editor C# Model generator Calendar Camera Certificate Chrome Citrix Class Client Client/Server Cloud Cluster Collection COM Command Line Compiler Compression Computed Field Configuration Controls Cookies Cordova Crash Cross-Platform Crosstab CSharpAssembly CSharpObject CSS CSV Cursor Data Database Database Driver Database Painter Database Profile Database Provider DataObject DataSource DataStore DataStore (C#) DataStore (PS) DataType DataWindow DATE DATETIME DB2 Debug Debugger Debugging Deployment Design DLL DO-WHILE Dockable Docker Documentation DOUBLE Download DPI DragDrop Edge Edit Style Editor Elevate Conference Email Embedded SQL Emulator Encoding Encryption Enhancement Request Entity Entity Framework ERP Error Event Event Handler Event Handling Excel Exception Export Expression External Functions F# Field File File Access Filter Firefox Firewall Font FOR-NEXT Foreground Format Function Garbage Collection GeoLocation Git Graph HANA Hash Header HTML/5 HTTP/S HTTPClient Icon IDE Identity IIS IMAPI Import InfoMaker Inheritance Installation Integer IntelliSense Interface Internet Internet Explorer iOS IPA iPad iPhone IWA J# Java JavaScript JBoss JDBC JOIN JSON JSONGenerator JSONParser Kestrel Label Lambda Large File LDAP Library License LINQ Linux OS Load Balancing Localization Localized PBVM Log In Log Out Logging LONG LONGLONG macOS MAPI Maps MDI Memory Memory Leak Menu Merge MessageBox Messagging Method Migration MIME TYPE Mobile Model ModelStore ModelStore (C#) MSOLEDBSQL Multi Threading MVC MySQL n-Tier Namespace NativePDF NVO OAuth ODATA ODBC Office Offline OLE OLEDB Online Open Source OpenAPI OpenSSL Oracle OrcaScript Other Outlook Output Package Parameter Patch PayPal PB Classic PB Native PB.NET PBC PBD PBDOM PBG PBJVM PBL PBNI PBORCA PBVM PBX PDF Performance Permission PFC Picture Pipeline Play Store (Google) Plugin Popup Port POST PostgreSQL PowerBuilder PowerBuilder (Appeon) PowerBuilder (SAP) PowerBuilder Compiler PowerBuilder Runtime PowerClient PowerScript (PS) PowerScript IDE PowerScript Migrator PowerServer PowerServer Mobile PowerServer Toolkit PowerServer Web PowerServerLabel Print Properties Proxy Publish PULL PUSH Query Regression Release Renew Resize Response REST Retrieve RibbonBar RibbonBar Builder RibbonView Rich Text Roadmap RPC Runtime Packager SaaS Scaffolding Script SDI SDK Security Server Service Session Single Sign-on Size SMTP SMTPClient SnapDevelop SOAP Solution Sort Source Code Speech Recognition SQL SQL Anywhere SQL Server SqlBuilder SqlExecutor SQLite SqlModelMapper Storage Stored Procedure Subscription SVN Swagger Syntax TabbedBar TabbedView Tablet TabPage Target TE Control Testing Text TFS Theme TIME Timer TLS/SSL Tomcat TortoiseGit TortoiseSVN Transaction Transparency Trial Trigger TRY-CATCH TX Control Type UI ULONG UltraLite Uninstall Unit Test Unit Testing UNIX OS Update Upgrade Upload URL User Center User Object UWP Validation VARCHAR Variable Versioning Visual Studio Visual Studio Code VM Voice Warning WCF Web API Web Extensions Web Service WebBrowser WebForms WebLogic WebSphere WildFly WinAPI Window Windows OS WinForms Wizard Workgroup Workspace WPF XCODE XHTML XML Zoom
✖

Helpful?

If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.