Tu comunidad de Seguridad Informatica

Para ver Todo el contenido del foro es necesario estar Registrado!
Antes de comentar o Aportar es Obligado Leer Las: Reglas | Rules
Ya Esta Disponible al publico "LeProject" el Videojuego del Foro Click Aquí Para Ver el Post.
Pitbull Security Labs "Extras" Esta Disponible! [ENTRA]

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

avatar
Administrador
Administrador

Ver perfil de usuario http://www.pitbullsecurity.org
el Dom Dic 12, 2010 7:01 pm
Bueno aqui de nuevo con un codigo para ejecutar archivos sin apis, es como la api "shellexecute" pero sin usarla , aqui se los dejo

Código:

************************************************************************
Autor:K-0Z
Lenguaje:Delphi
Modo De Uso:DelphiExecute(SFilePath,True or false)
Agradecimientos:BlackzeroX

************************************************************************

uses ComObj;
function DelphiExecute(sFilePath:string;Hidden:bool):bool;
var
Vari:olevariant;
begin
vari:= CreateoleObject('Shell.Application');
vari.shellexecute(sFilePath, '', '', 'open', abs(strtoint(booltostr(not Hidden))));
DelphiExecute:= true;
end;
**************************
Pagina web: [Tienes que estar registrado y conectado para ver este vínculo]
**************************


Ejemplo de uso:
DelphiExecute('c:\pruebame.exe',false);

Salu2


___________________
Admin: Pitbull Security Labs , Colaborador: Indetectables , Moderador: Level-23
avatar
Moderadores Globales
Moderadores Globales

Ver perfil de usuario
el Lun Dic 13, 2010 9:11 am
Gracias a K-oz por este code! y a ti por traerlo!


___________________
Pitbull Security Labs Team
¿No estas Registrado Aun,Que esperas? Hazlo Ya!

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.