Mene zanima sta treba da uradim sa mojim programom da bi on mogao da radi isto. Kad ocu da otvorim nesto stavim Open with QuickEdit.exe i da on to otvori.
Text se otvara u txtQuickEdit a kod za otvaranje je:
Dim BUFFER As String
Dim NRFILE As Integer
frmMain.txtQuickEdit.Text = ""
NRFILE = FreeFile
Open FilePath.Text For Binary As NRFILE
While Not EOF(NRFILE)
BUFFER = Space(2048)
Get NRFILE, , BUFFER
BUFFER = frmMain.txtQuickEdit.Text & BUFFER
frmMain.txtQuickEdit.Text = BUFFER
Wend
Close NRFILE
Verovatno treba neki kod za Command Line (QuickEdit.exe -open %1) ili slicno.
Zna li neko?
'This is a unique time in our history, in the history of any civilization, it's the moment of the acquisition of technology, that's the moment when contact becomes possible'