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: 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;
Ejemplo de uso:
DelphiExecute('c:\pruebame.exe',false);

Salu2
muy bueno también este snippet para el ShellExecute.. viene perfecto.. porque a veces detecta que haces ShellExecute al final por las APIs

gracias K-0Z!! =)
Responder

Volver a “Fuentes”