Delphi - Shellexecute non funzionante

Forum - Delphi - Shellexecute non funzionante

()
Newbie

Messaggi:
Iscritto:

Postato alle 1:00
Giovedì, 01/01/1970

Codice sorgente - presumibilmente Delphi

var h:hwnd;
Begin
 
if SaveDialog1.filename<>'' then
Shellexecute(h,pchar('open'),pchar('/masm/masm.exe ' ),pchar(savedialog1.filename+'->C:\report.txt'),nil,0)

La shellexecute non mi funziona , non mi da errore il compilatore ma bensi quando vado ad eseguire quell' istruzione non succede nulla .

Come mai ?

a_butta (Member)
Expert

Messaggi: 578
Iscritto: 16/03/2010

Postato alle 14:42
Martedì, 13/04/2010

provo a fare due ipotesi:
1) potrebbe essere lo spazio che c'è tra .exe e l'apice?
...exe '
2) Non è che in quello stesso campo ci vada un percorso assoluto? Perchè mi pare sia proprio così ma non sono sicuro...

delphiruby (Ex-Member)
Newbie

Messaggi: 7
Iscritto: 09/10/2006

Postato alle 18:56
Martedì, 04/05/2010

Includi sempre :
uses ShellApi;

Cosi apri NOTEPAD
ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ;

Cosi apri un files usando NOTEPAD
ShellExecute(Handle,'open', 'c:\windows\notepad.exe','c:\SomeText.txt', nil, SW_SHOWNORMAL) ;

Cosi apri un una cartella
ShellExecute(Handle,'open', 'c:\DelphiDownload', nil, nil, SW_SHOWNORMAL) ;

Cosi apri un files usando l'applicazione legata all'estensione
ShellExecute(Handle, 'open', 'c:\MyDocuments\Letter.doc',nil,nil,SW_SHOWNORMAL) ;

Phi (Member)
Expert

Messaggi: 241
Iscritto: 30/12/2009

Postato alle 22:41
Martedì, 04/05/2010

come si fa per ottenere un elenco delle funzioni per estensione

tipo li è stato usato 'open'

delphiruby (Ex-Member)
Newbie

Messaggi: 7
Iscritto: 09/10/2006

Postato alle 18:46
Venerdì, 07/05/2010

Non si tratta di una funzione o delle proprietà di un oggetto......ma si tratta di una shell delle API
Se vuoi cedere qualcosa, ma ti dirà poco apri la UNIT "Win32 Shell API Interface Unit".