Windows commandos

[Svking]

hab sie gefunden, aber wenn ich das mache:

Code: Alles auswählen

 If KeyboardPushed(#PB_Key_Down)                
     EjectCDAudio(1) 
   EndIf

dann meint er trotzdem immer da sein ein fehler

[hardfalcon]

1.) Welcher Fehler ist das, den er meldet? Ein bisschen ernsthafte Mithilfe wäre wohl angebracht, schließlich willst DU ja ein Programm...

2.) Ich versuche jetzt mal einfach, das ganze OHNE Fehlermeldung zu erraten, und tipe einfach darauf, dass du InitCDAudio() und eventuell noch UseCDAudio() vergessen hast.
Jetzt musst du aber aufpasssen, wenn du mehrere CD-Laufwerke hast:

InitCDAudio() gibt die Anzahl der LAufwerke wieder. Bei einem Laufwerk z.B. 1.
UseCDAudio(X) nimmt das Laufwerk Nummer X als aktuelles Laufwerk. Wenn du das erste Laufwerk verwenden willst, musst du dann jedoch nicht 1, sondern 0 als "X" verwenden.

Ansonsten: viel Spaß beim programmieren, und wenn dein Programm fertig ist, kannst du es ja gerne mitsamt Quellcode im Showcase auf PureArea.net und hier im Forum zur Verfügung stellen. So kannst du dich für die Hilfe der PB-Community revanchieren.

[ts-soft]

Hab hier noch einen Beispielcode gefunden:

Code: Alles auswählen

#IOCTL_STORAGE_EJECT_MEDIA  = $2D4808
#IOCTL_STORAGE_LOAD_MEDIA   = $2D480C
Procedure EjectCD(LW.s)
  Protected hLwStatus.l
  hLwStatus = CreateFile_("\\.\"+LW,#GENERIC_READ|#GENERIC_WRITE, 0, 0, #OPEN_EXISTING, 0, 0)
  If hLwStatus
    DeviceIoControl_(hLwStatus,#IOCTL_STORAGE_EJECT_MEDIA,0,0,0,0,@Ret,0)
    CloseHandle_(hLwStatus)
  EndIf
EndProcedure
Procedure.s GetFirstCDROM()
  While GetDriveType_(Chr(I + 68) + ":\") <> #DRIVE_CDROM And I < 23
    I = I + 1
  Wend
  ProcedureReturn Chr(I + 68) + ":"
EndProcedure
Select MessageRequester("Computer-Administrator", "Lieber Windows-Nutzer," + Chr(10) + "" + Chr(10) + "benötigst Du einen Bierhalter ?", #MB_YESNO|#MB_ICONQUESTION)
  Case #IDYES
      EjectCD(GetFirstCDROM())
      MessageRequester("Computer-Administrator", "Dein Wunsch sei mir Befehl!", #MB_OK|#MB_ICONINFORMATION)
  Case #IDNO
    End
EndSelect

[hardfalcon]

Ich denke mal, DIESER Code ist noch etwas zu kompliziert für Svking...

[Batze]

Aber lustig.

[hardfalcon]

Stimmt. Aber das kann amn auch noch lustiger (und einfacher) gestalten:

Code: Alles auswählen

MessageRequester("Fantaisie Bierdosenzerquetscher XP","Vielen Dank, dass Sie sich für Fantaisie Bierdosenzerquetscher XP entschieden haben!"+Chr(10)+"Wir weisen Sie darauf hin, dass Sie dieses Programm während 30 Tagen aktivieren müssen, damit Sie es weiter nutzen können.")
Drives.l = InitCDAudio()
If Drives
  Repeat
    UseCDAudio(Random(Drives-1))
    EjectCDAudio(Random(1))
    Delay(1)
  ForEver
EndIf

Bitte nicht ohne Debugger laufen lassen!

[roherter]

Vileicht solltest du mal deinen Code komplet posten,weil wenn das alles an ist was du geschrieben hast dann ist klar das es nicht geht!
Du solltest uns auch schon deinen Fehler genauer erleutern sonst kann dir hier keiner sagen worans bei dir liegt!

[ts-soft]

CD Schublade öffnen geht noch einfacher so:

Code: Alles auswählen

mciSendString_( "set cdaudio door open", "", 0,0)