Win8: In che modo programmi come OblyTile e Modern Tile Maker assegnano le tessere agli shorcuts delle app non-Metro?

Question

Abbiamo un'applicazione .NET ma non-Metro, costruita in Visual Studio 2010. Vorremmo mostrare una bella immagine 512x512 (o qualsiasi altra cosa) per la nostra app sul desktop. Non abbiamo bisogno della funzionalità Live Tile, abbiamo solo bisogno di un collegamento che mostra una bella immagine Metro-dimensionata. I programmi OblyTile e Modern Tile Maker possono farlo, anche se non è chiaro come. Stanno creando una scorciatoia LNK programmaticamente? O sono in realtà scorciatoie a loro stesse (app Metro) che poi lanciano la tua app legacy?

Se è il primo, è chiaro che è possibile creare un'icona del desktop con dimensioni Metro per un'app non Win8. Come potremmo scrivere la creazione di tale scorciatoia? Non ci interessa quale lingua dobbiamo usare (JScript, C++, C#, qualunque cosa), dobbiamo solo essere puntati nella giusta direzione. Usiamo WiX, quindi abbiamo molta flessibilità in termini di script di installazione.

Answer 1

ci sono un paio di cose in corso qui:

1) È possibile visualizzare il codice sorgente per OblyApp scaricando ILSpy: http://ilspy.net/

2) L'OblyApp crea una piastrella che esegue un file VBS (Launcher.vbs) che avvia l'app specificata. OblyApp crea un nuovo file launcher.vbs unico per ogni riquadro e salva anche le immagini per ciascuna delle tessere create sotto lo c:\Program Files\OblyTile\<Folder like 00000001>. Testo del file VBS:

On Error Resume Next 
Set objShell = CreateObject("Wscript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
strApp = "<path to executable>" 

arrPath = Split(strApp, "\") 

For i = 0 to Ubound(arrPath) - 1 
    strAppPath = strAppPath & arrPath(i) & "\" 
Next 

objShell.CurrentDirectory = strAppPath 
objShell.Run """<path to executable>""" & "" 
If Err.Number <> 0 Then 
    If InStr(1, strApp, "/") > 0 then 
    Else 
     If InStr(1, strApp, "www.") > 0 then 
     Else 
      If InStr(1, strApp, "shell:") > 0 then 
      Else 
       If objFSO.folderExists(strApp) Then 
       Else 
        If objFSO.FileExists(strApp) Then 
        Else 
         MsgBox strApp & " not found", 16, "OblyTile" 
        End If 
       End If 
      End If 
     End If 
    End If 
Err.Clear 
End If 

3) credo che stanno copiando un file .lnk esistente e modificando le relative informazioni in formato binario. Il codice associato per questo è nei metodi CreaRisorce() e CreateShortcutWinAppClick(). C'è un formato di file ufficiale per i file .lnk qui: http://download.microsoft.com/download/9/5/E/95EF66AF-9026-4BB0-A41D-A4F81802D92C/[MS-SHLLINK].pdf