Stickstarter v1.0

[Criss]

Hi zusammen,

habe nun endlich die erste fertige Version von Stickstarter beendet!

Stickstarter ist ein Tool das auf einen USB-Stick kommt! Dannach kann man an jedem Windowsrechner (XP-Getestet, andere?) seine Software benutzen!

Welche Software der einzelne benutzt, ist seine Sache! Nicht jede Software kommt ohne Schreibzugriff auf C: oder die Registry aus!

Es gibt auch extra Software für USB-Sticks!

Und nun viel Spass beim Testen und Bugreporten!

Ps.: Den Zip-Datei-Inhalt einfach so auf einen USB-Stick kopieren!

Wenn Ihr noch mehr tolle Skins habt, sendet sie mir per eMail oder hier ins Forum!


Screenshots:



Download:
Stickstarter v1.0 [2116KB]
Letztes Update: 19.03.07 / 16:45 Uhr

[15.03.2007]
- Flackern verbessert, konnte es nicht ganz eliminieren
- Leere Programme können nicht mehr erstellt werden
- Das Fenster kann per Maus verschoben werden
- Das Fenster kann mit dem Ziffernblock (1,3,5,7,9) verschoben werden
- Der Fokus vom Fenster Einstellungen bleibt erhalten
- Die Icons der Programme, sollten jetzt immer korrekt angezeigt werden
- Die Speicherplatzanzeige stellt automatisch von GB auf MB oder umgekehrt um
- Bei einem Absturz wird nun eine bessere Fehlermeldung ausgegeben
- Bug beim Entfernen von Programmen behoben
- Bug beim erstellen von neuen Programmen behoben

[17.03.2007]
- Die soeben neu erstellten Programme, können direkt entfernt werden
- Neue Option: Fensterdocking (andocken am Bildschirmrand)
- Ein paar Tooltipps zur Erleichterung, eingefügt
- 3 Neue Skins

[19.03.2007]
- Flackern entfernt (Realtime Update der Anzeigen)
- 10 Neue Skins

[12.04.2007]
- Entfernen von Programmen verbessert
- Beim beenden von Stickstarter keine Verzögerung mehr
- Hinzufügen: Name kann mit Enter bestätigt werden

[RSBasic]

@Criss
Dies was du hast ist eine tolle Idee
Ich hab dein Stick Starter v1.0 getestet und also hier mein Feedback:

1. Warum kann man das Fenster nicht verschieben? Es wäre besser, wenn man dieses Fenster verschieben kann.
2. Ich habe leider nur einen 128 MB USB-Stick, aber warum wird bei deinem Programm folgendes angezeigt?
0.00 GB/0.12 GB
Es ist besser, wenn es in MB angezeigt wird oder noch besser eine Abfrage:
Wenn dieser USB-Stick min. 1 GB hat, dann in GB angeben, aber sonst MB.
3. Dein Programm ist einmal abgestürtzt, wo ich auf den Button "Hinzufügen" geklickt habe. Aber nicht beim ersten Mal, sondern wo ich das dritte Mal auf den Button geklickt habe, da kam ne Fehlermeldung.
Tipp: Füge doch "OnError" ein, so dass man genauere Info bekommt.
Fehlermeldung:


Ja aber sonst ist es sehr schön geworden

[Criss]

Neues Update!

Siehe ersten Post!

@RSBasic, danke fürs Testen!

[Thorsten1867]

Wenn kein Programm in der Liste ist (vorhandene alle entfernt) und man ein neues Programm hinzufügen will, erhält man eine Fehlermeldung (Zugriffsproblem "applications.dat")

Vorschlag:
Hinzufügen und Löschen kombinieren als "Programmverwaltung" und einen Löschbutton hinzufügen. Bei der Einrichtung habe ich ihn, nach einem versehntlichen Anlegen eines neuen Programmes sehr vermisst.

PS: Du darfst gerne EasySetup (s.u.) als Installer benutzen.
PPS: Ich würde die MS Programme nicht mitliefern. Eine gewisse große Firma reagiert manchmal sehr kleinlich in solchen Dingen.

[Criss]

@Thorsten1867, Das sind sehr gute Vorschläge und Fehler die ich noch gar nicht bemerkt habe! Und ja stimmt wegen den Programmen, die werde ich wieder rausnehmen! Dein Installer wäre noch was tolles, werde ihn mir mal angucken!

Melde mich dann bald wieder! Besten Dank!

[coder]

Ich habe mal son Code gebastelt. Da muss man nur die Größe einer Datei übergeben und die Procedure gibt dann einen String zurück mit der Dateigröße in einer passenden Einheit un umgerechnet:

Code: Alles auswählen

Procedure.s Size(Size.d)
  If Size > 0
    Einheit$ = "B"
    Repeat
      Size = Size/1024
      If Einheit$ = "B"
        Einheit$ = "KB"
      ElseIf Einheit$ = "KB"
        Einheit$ = "MB"
      ElseIf Einheit$ = "MB"
        Einheit$ = "GB"
      EndIf
    Until Size < 1024 Or Einheit$ = "GB"
    ;Debug StrD(Size, 2)+" "+Einheit$
    ProcedureReturn StrD(Size, 2)+" "+Einheit$
  EndIf
  ProcedureReturn "?"
EndProcedure

[Criss]

Neues Update!

Beispielprogramme wurden komplett entfernt!

Alles weitere, siehe ersten Post!

@coder, Danke schaue es mir an!

[Thorsten1867]

Zum Thema zum Formatieren von Dateigrößen habe ich auch einmal einen Code geschrieben. Vielleicht kannst du ihn ja brauchen:

Code: Alles auswählen

Procedure.s FormatFileSize(Size.d)
  Size / 1024
  If Size < 1024 ; KiloByte
    If Size < 100
      size$ = StrD(Size,2) ; '3.21 KB'
    ElseIf Size < 100
      size$ = StrD(Size,1) ; '32.1 KB'
    Else
      size$ = StrD(Size,0) ; '321 KB'
    EndIf
    If Left(StringField(size$,2,"."), 1) = "0" : size$ = StringField(size$,1,".") : EndIf
    ProcedureReturn size$+" KB"
  ElseIf Size < 1048576 ; MegaByte
    Size / 1024
    If Size < 10
      size$ = StrD(Size, 2) ; '6.54' MB'
    ElseIf Size < 100
      size$ = StrD(Size, 1) ; '65.4' MB
    Else
      size$ = StrD(Size, 0) ; '654' MB
    EndIf
    If Left(StringField(size$,2,"."), 1) = "0" : size$ = StringField(size$,1,".") : EndIf
    ProcedureReturn size$+" MB"
  Else ; GigaByte
    Size / 1048576
    If Size < 10
      size$ = StrD(Size, 2) ; '1.23 GB'
    ElseIf Size < 100
      size$ = StrD(Size, 1) ; '12.3 GB'
    Else
      size$ = StrD(Size, 0) ; '123 GB'
    EndIf
    If Left(StringField(size$,2,"."), 1) = "0" : size$ = StringField(size$,1,".") : EndIf
    ProcedureReturn size$+" GB"
  EndIf
EndProcedure

[Criss]

Neues Update!

Siehe ersten Post!

[Criss]

Neue Updates!