Visual Basic 6 - Apertura di un file da doppio click ad app aperta

27/04/08 18:26

ho creato un riproduttore di files audio

c'è una lista e se apro un file con doppio click attraverso command$ lo apro, se il mio prog è già aperto come posso aggiungere il file alla lista???

aaa

27/04/08 18:43

gantonio

Non puoi ... dovrai usare un pulsante o un menu per scegliere i file da aggiungere ...

Oppure puoi usare il drag & drop ...

aaa

27/04/08 19:48

TSP

va be allora a meno che qualcun altro non sappia risp ci rinuncerò, so che c'è un metodo (messaggi intercettazuioni) ma mi sa che è troppo complicato

aaa

27/04/08 20:02

P4p3r0g4

adesso e` una cazzata, ma tecnicamente e` possibile.
metti caso che ci infili un controllo che il tuo processo sia gia in esecuzione, basterebbe comunicargli (ad esempio col socket, lo so che e` assordo e` la prima cosa che mi e` venuta in mente)il percorso del nuovo file.

servirebbe un pre programma che gestisca il corretto avviamento e poi si chiuda

Esempio:
A: programma di lancio
B: rpogramma serio

associo A all'estensione

Utente: DblClick su file --> Avvia A
A: ricava il percorso del file che lo ha avviato
A: fa un check se esiste il processo B in esecuzione

Caso NO:
A: avvia B con il parametro che avuto all'avviamento
A: si autotermina

Caso SI:
A: In qualche modo (es socket) comunica al B aperto il parametro
A: si autotermina

aaa

27/04/08 20:12

gantonio

[i]Postato originariamente da TSP:
so che c'è un metodo (messaggi intercettazuioni) ma mi sa che è troppo complicato

Cioe'? Spiegati meglio ... non essere generico ...

aaa

27/04/08 20:16

gantonio

Postato originariamente da P4p3r0g4:
ma tecnicamente e` possibile.

Paperoga ... tecnicamente tutto e' possibile ma non e' possibile inventarsi un accrocchio per risolvere un problema che non esiste ...

Per aggiungere file ad una playlist di WMP, utilizzi il drag & drop ...

aaa

27/04/08 20:37

TSP

signori ho risolto con il metodo + idiota del secolo:

Sub Main()
If Not App.PrevInstance Then
frmSplash.Show
Else
On Error Resume Next
Open App.Path & "\command.file" For Output As #1
Print #1, Mid(Command$, 2, Len(Command$) - 2)
Close #1
End
End If
End Sub

invece nella form 1 carico il file ogni 100 millisec (se c'è