Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Spielerei für External Application Buttons

Uploader:Redakteurytwinky
Datum/Zeit:11.01.2008 23:20:49

'funzt mit FB0.183b^^
' Deklariere die API-Funktion ShellExecute
Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA"_
  (ByVal hWnd As Integer, ByVal lpOperation As String, ByVal lpFile As _
  String, ByVal lpParameters As String, ByVal lpDirectory As String,_
  ByVal nShowCmd As Integer) As Integer
Dim Ref As String, Erg As Integer
Width 30, 10
Do
  Cls
  Input "Welcher Befehl?", Ref
    If Ref<>"" Then
      If UCase(Ref)="REF" Then
          Ref="http://www.freebasic-portal.de/index.php?s=ref"
      Else
          Ref="http://fb-referenz.de/" &Ref
      End If
    Erg = ShellExecute(0, "open", Ref, "", "", 3) 'thx Jojo^^
  End If
Loop Until Ref=""
End