|
Das deutsche QBasic- und FreeBASIC-Forum Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
oldirty
Anmeldungsdatum: 04.08.2005 Beiträge: 65
|
Verfasst am: 14.12.2005, 20:34 Titel: Standart-Drucker über Api ermitteln, wie? |
|
|
Hallo,
habe schon diverse Internetseiten durchsucht, um eine Funktion aus den Apis zu finden, die mir den Namen als String des in Windows eingestellten Standarddruckers zurückgibt.
Leider noch nichts gefunden.
Bitte um Hilfe und Tips.
Danke. |
|
Nach oben |
|
|
MisterD
Anmeldungsdatum: 10.09.2004 Beiträge: 3071 Wohnort: bei Darmstadt
|
Verfasst am: 14.12.2005, 21:37 Titel: |
|
|
schon ma übers freigabesystem versucht?
share IPC$ und dadrin print$ oder sowas? Das könnte der Standarddrucker sein, schau doch ma ob du damit was anfangen kannst
/Edit: Oha, grad nochma geschaut, das is nur die freigabe wo man die treiber herbekommt... bringt also wahrscheinlich auch nix.. _________________ "It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra |
|
Nach oben |
|
|
Sebastian Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
|
Nach oben |
|
|
oldirty
Anmeldungsdatum: 04.08.2005 Beiträge: 65
|
Verfasst am: 15.12.2005, 19:25 Titel: |
|
|
Hallo an alle,
habe die Lösung gefunden:
Code: |
screen 16
Option Explicit
Declare Function apiGetProfileString Lib "kernel32" Alias "GetProfileStringA" _
(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long) As Long
Declare Function fDefaultPrinter() As String
Function fDefaultPrinter() As String
Dim strBuffer As String * 254
Dim lngReturn As Long
Dim strDefaultPrinter As String
lngReturn = apiGetProfileString("WINDOWS", "DEVICE", ",,,", strBuffer, Len(strBuffer))
fDefaultPrinter =Left$(strBuffer, InStr(strBuffer, ",") - 1)
End Function
Print fDefaultPrinter()
sleep
|
|
|
Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|