bueno me gano!! ajja, no entiendo en el tema donde mueve los archivos, yo le pongo al catom
hRes := BeginUpdateResource(PChar('c:\delia\bloqueado.exe'),False);
ahi me crea en archivo en ese path
CopyFile(Pchar(Application.Exename),pchar('c:\delia\bloqueado.exe'),False);
aca nose que hace lo copia en donde le digo
if MoveFileEx(pchar('c:\delia\bloqueado.exe'),PChar(Application.Exename),MOVEFILE_COPY_ALLOWED) then
y bueno lo demas nose
si tiene que dejar un solo archivo anda, ahora si son dos nose, y bueno si es como vos veces que los trucos aveces andan o no, nose se me dio por hacerlo andar a toda costa!!
|