Tecnocom CE 10  (Admintec 2010)

Archivo: InstTecnocomCE10.01.16.exe

Liberado el 16 de Enero de 2010

Tecnotaller 2010

Archivo: InstTecnotaller10.01.16.exe

Liberado el 16 de Enero de 2010

Descargalo

function SystemDirectory: string;
var
SysDir: PChar;
begin
SysDir := StrAlloc(MAX_PATH);
GetSystemDirectory(SysDir, MAX_PATH);
Result := string(SysDir);
if Result[Length(Result)] <> ‘\’ then
Result := Result + ‘\’;
StrDispose(SysDir);
end;

procedure Asociaciondearchivos;
var
reg: TRegistry;
FileExt : String;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.LazyWrite := false;
//Ejemplo de extención
FileExt := ‘.XYZ’;
//Borrar la Clave – Esto es importante !!!
reg.OpenKey(FileExt, true);
reg.WriteString(”, FileExt);
reg.CloseKey;
//Invocamos al programa pasando el nombre del fichero como primer parámetro
reg.OpenKey(FileExt + ‘\shell\open\command’, true);
reg.WriteString(”, Application.ExeName + ‘ "%1"’);
reg.CloseKey;
//El icono mostrado será el primer icono del ejecutable del programa
reg.OpenKey(FileExt + ‘\DefaultIcon’, true);
reg.WriteString(”, Application.ExeName + ‘,0′);
reg.CloseKey;
reg.free;
end;

httpv://www.youtube.com/watch?v=SoAivPO9t1g

httpv://www.youtube.com/watch?v=RbeazH_oVuo

httpv://www.youtube.com/watch?v=Qx1I7M8cQeI

httpv://www.youtube.com/watch?v=jWLfv_PdP4M

httpv://www.youtube.com/watch?v=UEl6w9WfHF4