Oppure

Loading
11/04/10 21:07
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 ?
13/04/10 12:42
a_butta
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...
aaa
04/05/10 16:56
delphiruby

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) ;
aaa
04/05/10 20:41
Phi

come si fa per ottenere un elenco delle funzioni per estensione

tipo li è stato usato 'open'
aaa
07/05/10 16:46
delphiruby
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".
aaa