Die Suche ergab 25 Treffer

Zur erweiterten Suche

von Robert
24.02.2005 20:06
Forum: Allgemein
Thema: Probleme mit GetFileTime_()
Antworten: 7
Zugriffe: 1409

@MVXA

Dein Lösungsvorschlag geht natürlich auch mit ReadFile. Ein Schreibzugriff wird ja nicht benötigt.

Code: Alles auswählen

hFile = ReadFile(#PB_Any, strFileName)
   
GetFileTime_(UseFile(hFile), @Create, @Access, @Write)
FileTimeToSystemTime_(@Create, @SysTime)
CloseFile(hFile)
von Robert
24.02.2005 18:36
Forum: Allgemein
Thema: Probleme mit GetFileTime_()
Antworten: 7
Zugriffe: 1409

@ nco2k

Problem ist das #PB-Any bei ReadFile. Ist möglicherweise ein Bug. Mit hFile.l = ReadFile(0, File) und CloseFile(0) funktioniert dein Programm.

Hier ist noch ein Code-Schnipsel mit ner Aufbereitungsroutine von NicktheQuick. Ist irgendwie eleganter und wiederverwendbar.



Procedure.s ...
von Robert
25.01.2005 19:43
Forum: Allgemein
Thema: Internet-Verbindung trenne - wie gehts?
Antworten: 10
Zugriffe: 2894

Noch ein Nachtrag: Workaround mit 'rasdial' (engl. Forum)

Success = ShellExecute_(0, "open", "rasdial", "/disconnect", "", #SW_HIDE)
If Success > 32
MessageRequester("InternetConnection", "Verbindung getrennt!", #MB_ICONINFORMATION)
Else
MessageRequester("InternetConnection", "Leider immer noch ...
von Robert
24.01.2005 23:33
Forum: Allgemein
Thema: Internet-Verbindung trenne - wie gehts?
Antworten: 10
Zugriffe: 2894

Hallo Robert, hallo Laurin,

schade, daß es bei euch nicht geklappt hat. Könnte vielleicht an der ConnectionId liegen, mal mit höherer Id probiert? Ich hab hier nur eine einzige, einfache Internetverbindung, also keinen Router, kein Netzwerk oder Heimnetzwerk oder dgl.
Ist aber wahrscheinlich eine ...
von Robert
24.01.2005 18:04
Forum: Allgemein
Thema: Internet-Verbindung trenne - wie gehts?
Antworten: 10
Zugriffe: 2894

ConnectionID = 1
success = InternetHangup_(ConnectionID, 0)
If Success = 0
MessageRequester("InternetConnection", "Verbindung getrennt!", #MB_ICONINFORMATION)
Else
MessageRequester("InternetConnection", "Trennen fehlgeschlagen!", #MB_ICONINFORMATION)
EndIf


Klappt zumindest hier bei mir für ...
von Robert
20.11.2004 11:16
Forum: Windows
Thema: Status der CAPS-LOCK Taste prüfen
Antworten: 12
Zugriffe: 5549

Hallo Sorus,

den Status von den Caps-, Num- und Scroll-Lock-Tasten bekommst du mit:

Procedure GetKeyState(VKKey.l)
Dim keyState.b(256)
GetKeyboardState_(@keyState(0))
debug KeyState(VKKEY)
EndProcedure

GetKeyState(#VK_CAPITAL)

Fürs An- und Ausschalten gibts ein Beispiel im Code-Archiv unter ...
von Robert
18.11.2004 11:07
Forum: Code, Tipps und Tricks
Thema: Progress progress ....API FileCopy Routine mit Progressbar
Antworten: 2
Zugriffe: 3061

@isidoro

hab da noch nen Nachtrag, da ich mich auch schon mal mit der Routine rumschlagen mußte. Wegen den ULongs: man muß alle Parameter angeben und zusätzlich noch 4 Pseudo Longs, also so:

Procedure.l CopyProgressCallback(TotalFileSize, TotalBytesTransferred, StreamSize, StreamBytesTransferred ...
von Robert
17.11.2004 20:06
Forum: Allgemein
Thema: Datei - Icon und öffnen
Antworten: 1
Zugriffe: 869

@KeyKon

dafür gibt's ein Beispiel im Code Archiv unter Files+Dirs\Other\FileAssociate.pb. Sollte genau das sein, was du suchst.
von Robert
14.11.2004 23:46
Forum: Allgemein
Thema: Dateitypen mit Icon Handler - API Methoden
Antworten: 3
Zugriffe: 1346

Hab mal ein Beispiel mit SHGetFileInfo zusammengestellt:

Structure MySHFILEINFO
hIcon.l
iIcon.l
dwAttributes.l
szDisplayName.b[#MAX_PATH]
szTypeName.b[80]
EndStructure

Debug "SHFILEINFO size = " + Str(SizeOf(SHFILEINFO)) ; SizeOf(SHFILEINFO) is 259 bytes short in PB
Debug "MYSHFILEINFO size ...
von Robert
13.11.2004 19:20
Forum: Allgemein
Thema: Dateitypen mit Icon Handler - API Methoden
Antworten: 3
Zugriffe: 1346

Hallo Andre,

die Beispiele vom CodeArchiv hab ich alle schon durchexerziert, die Icons für die besagten Dateitypen bekomme ich allerdings nicht zurück. Auch nicht mit dem API-Befehl SHGetFileInfo.
Sobald ein Icon Handler mit im Spiel ist, muß man irgendwie andere Wege gehen. Das mit IExtractIcon ...

Zur erweiterten Suche