07-11-2005, 06:48 AM
How can I create msctls_progress32 to this function:
function str'archivo ARRAY(str)&encontrados
;ARRAY(str) encontrados
;out filefind("notepad.exe" encontrados)
;int i
;for i 0 encontrados.len
,;out encontrados[i]
str comando
str temp.expandpath("$Temp$")
if(dir("$Temp$\resultados.txt"))
,del "$Temp$\resultados.txt"
ChDir "C:\"
comando.format("/c dir %s /b/s>%s\resultados.txt" archivo temp)
run "%COMSPEC%" comando "" "" 2
;texto
str texto.getfile("$Temp$\resultados.txt")
err
,1
,goto texto
;out texto
encontrados=texto
ret encontrados.len