[RESOLVIDO] Janela Corrente

Tarde,
Costumo usar este comando pra verificar os programas que estão em memória:

Código:

function getfrequency returns integer    
   ( input pcstring        as character,
     input pclist          as character,
     input plcasesensitive as logical):

    if length(pcstring) > 1  then
        assign pcstring = replace (pcstring , pcstring ,chr(2) )
               pclist   = replace ( pclist , pcstring ,chr(2) ).

    if  not plcasesensitive then
        assign pcstring = caps(pcstring)
               pclist   = caps(pclist).

    if num-entries(pclist, pcstring) > 0 then
        return num-entries(pclist, pcstring) - 1.
    else
        return 0.

end function.


define variable hproc as handle     no-undo.
define variable clist as character  no-undo.
define variable icounter as integer    no-undo.
define variable cdelimiter as character  no-undo.
define variable cstring as character  no-undo.

assign
    hproc = session:first-procedure
    clist = hproc:file-name
    cdelimiter = chr(1) no-error.
 
do while valid-handle(hproc):
    if hproc = session:first-procedure then hproc = hproc:next-sibling.
    assign
        clist = clist + cdelimiter + hproc:file-name
        hproc = hproc:next-sibling.
end.

if num-entries(clist, cdelimiter) <> 0 then
   do icounter = 1 to num-entries(clist, cdelimiter):
   cstring = entry(icounter, clist, cdelimiter).
    message
        "procedure no.:"   "~t" icounter "~n"
        "procedure:" "~t" cstring "~n"
        "list:"      "~t~t" clist   "~n"
        "frequency:" "~t" getfrequency(cstring, clist, false)
        view-as alert-box info buttons ok.
end.
else
    message "there are no currently running persistent procedures in this session"
        view-as alert-box info buttons ok.

Não sei se era isso que estavam discutindo, mas seria uma forma tbm.. rs

Obrigado, jdchaves, mas essa função seria somente para run persistent ok?