Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [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

Beispiel Programmaufruf für Forenbenutzer Wolkensteyn

Uploader:AdministratorSebastian
Datum/Zeit:22.07.2008 09:49:46

#include "windows.bi"
'#define debug  '<= Apostroph entfernen, um Aufrufstring ausgeben zu lassen

FUNCTION KurzerPfad (ByVal LangerPfad As String) As String
    Dim As Integer Ergebnis ,PufferLaenge
    Dim As ZString Ptr LangerPfadPtr, KurzerPfadPtr
    Dim As String ErgKurzerPfad
    PufferLaenge = 255
    LangerPfadPtr = Allocate(PufferLaenge)
    KurzerPfadPtr = Allocate(PufferLaenge)
    *LangerPfadPtr = LangerPfad
    Ergebnis = GetShortPathName(LangerPfadPtr, KurzerPfadPtr, PufferLaenge)
    ErgKurzerPfad = *KurzerPfadPtr
    Deallocate (LangerPfadPtr)
    Deallocate (KurzerPfadPtr)
    RETURN Trim(ErgKurzerPfad)
END FUNCTION

SUB StarteProgramm (ByVal Programm As String, ByVal DateiOeffnen As String)
    Dim Aufruf As String
    Aufruf = "START /WAIT "+KurzerPfad(Programm)+" "+KurzerPfad(DateiOeffnen)+">NUL"
    #ifdef debug
    PRINT Aufruf
    #endif
    SHELL Aufruf
END SUB


PRINT "Starte den Editor."
StarteProgramm "C:\WINNT\NOTEPAD.EXE", "C:\FreeBASIC\Wolkensteyn.bas"
PRINT "Das Programm wurde beendet."
BEEP
SLEEP: END