DelphiExecute (Shellexecute sin apis) [Delphi]
Publicado: 07 Sep 2010, 04:44
Bueno aqui de nuevo con un codigo para ejecutar archivos sin apis, es como la api "shellexecute" pero sin usarla , aqui se los dejo
Ejemplo de uso:
DelphiExecute('c:\pruebame.exe',false);
Salu2
Código: Seleccionar todo
************************************************************************
Autor:K-0Z
Lenguaje:Delphi
Modo De Uso:DelphiExecute(SFilePath,True or false)
Agradecimientos:BlackzeroX
Pagina web: www.indetectables.net
************************************************************************
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;DelphiExecute('c:\pruebame.exe',false);
Salu2