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