Search found 246 matches

by Marco
Sat Oct 13, 2012 4:17 pm
Forum: General category
Topic: find the default browser
Replies: 9
Views: 13134

find the default browser

Hi, can you do it with this code?

dim reg as registry
dim browser as string

browser= reg.readkey("HKEY_CLASSES_ROOThtmlfileshellopencommand")
browser=browser-chr$(34)
browser=left$(browser,instr(browser,".")+4)
showmessage browser
shell(browser)

best regards
by Marco
Fri Oct 12, 2012 3:57 pm
Forum: General category
Topic: find the default browser
Replies: 9
Views: 13134

find the default browser

can you do it whit this?

`open default browser
if fileexists("blank.html")=false then
  dim f as filestream
  f.open("blank.html")
  f.close
end if

best regards
open("blank.html")
by Marco
Wed Oct 03, 2012 3:32 pm
Forum: examples
Topic: File Version Information
Replies: 2
Views: 5512

File Version Information

Hi if it is possible i will add it, so it is on the todolist.

best regards
by Marco
Wed Oct 03, 2012 3:30 pm
Forum: General category
Topic: Copy a file from one directory to another leaving
Replies: 5
Views: 8942

Copy a file from one directory to another leaving

Sorry mistake of me you must use copyfrom like this:


dim target as filestream
dim source as filestream
source.open("readme.txt")
target.open("copyfromreadme.txt")
target.copyfrom(source)
target.close
source.close
showmessage "done"

this must work smoothly. Best regards
by Marco
Wed Sep 19, 2012 8:53 pm
Forum: General category
Topic: WinApi get Get Program Files directory
Replies: 4
Views: 8138

WinApi get Get Program Files directory

You can get the path from the registry:

dim reg as registry
dim key as string
key="HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionProgramFilesDir"
showmessage reg.readkey(key)

best regards
by Marco
Mon Sep 17, 2012 3:23 pm
Forum: General category
Topic: Close the form
Replies: 2
Views: 5719

Close the form

two solutions in one examplebest regardsobject myform as form  object m as mainmenu    object exapp as menuitem      caption="Exit"      onclick=closeapp    end object  end object    borderstyle=bssingle`nosize...
by Marco
Fri Sep 14, 2012 8:23 pm
Forum: General category
Topic: MP3 Player
Replies: 17
Views: 25046

MP3 Player

hi, figured it out, see the example belowbest regards``get duration of a mp3 fileDeclare mciSendString as "mciSendStringA" of "winmm.dll"  lpstrCommand As String  lpstrReturnString As String byaddress  uReturnLength As integer  hwndCallback As integer  re...
by Marco
Wed Aug 29, 2012 3:34 pm
Forum: General category
Topic: setFocus
Replies: 2
Views: 5340

setFocus

hi i`ve looked everwhere but can not find a good solution for it.The only thing i can up with is the following codeI hope you can do something with it, best regards`set focus to third party applicationdeclare getforeground as "GetForegroundWindow" of user32? result as integerend declaredec...
by Marco
Wed Aug 29, 2012 3:17 pm
Forum: examples
Topic: System Info
Replies: 2
Views: 5179

System Info

hi, i think the api calls will be more acurate then registry.
It is not very simple to build it in because the info is scattered al over the windows(place)| registry different api calls etc.
But i will giv it a try in the next update.

best regards
by Marco
Mon Aug 27, 2012 3:44 pm
Forum: discbugs
Topic: DateTime type
Replies: 2
Views: 7895

DateTime type

hi also added it (to the todo list).
best regards