PureBoard

Verfasst: **18.08.2008 20:51**

SetFileAttributes()

Verfasst: **18.08.2008 20:52**

meinst du mit Öffnen

RunProgram()

?

Verfasst: **18.08.2008 20:54**

ts-soft
lol jetzt kommt IMMER die Fehlermeldung das das Passwort falsch ist.

Verfasst: **18.08.2008 20:55**

X360 Andy hat geschrieben:ts-soft
lol jetzt kommt IMMER die Fehlermeldung das das Passwort falsch ist.

Gib "Zusatz inhalt" ein, so stehts im Source

Verfasst: **18.08.2008 20:59**

X360 Andy hat geschrieben:Wenn man jetzt "Passwort abfrage" anklickt und das richtige Passwort hat.
soll die "Datei" geöffnet werden. ( sollte aber weiterhin "unsichtbar" im Ordner liegen )
Wenn man das Passwort eben falsch eingibt soll die Datei eben nicht geöffnet werden.

Und wenn ich bei meinem Code das Passwort richtig eingeb wird die "Datei" eben nicht geöffnet.

also, zu deiner info, eine Datei zu öffnen bedeutet, dass sie für ein Programm zum Lese- und/oder Schreibzugriff zur verfügung gestellt wird.

wenn du eine Datei mit dem Editor öffnest, dann führt das Editorprogramm zusätzlich
eine kompette Lese-Operation durch, liest also die Textdaten von der Platte,
und packt sie in ein Darstellungselement des Fensters, meistens ein Editorgadget.
dann sieht man den Text auf dem Bildschirm.

das bedeutet aber nicht einfach "eine Datei öffnen"
sondern "eine Datei in einer Anwendung öffnen, zur Darstellung und Bearbeitung"

du könntest z.b. mit RunProgram den Editor oder Wordpad starten,
mit dem Namen der zu öffnenden Datei als Parameter.

Verfasst: **18.08.2008 21:00**

ts-soft hat geschrieben:
X360 Andy hat geschrieben:ts-soft
lol jetzt kommt IMMER die Fehlermeldung das das Passwort falsch ist.
Gib "Zusatz inhalt" ein, so stehts im Source

Ich depp hab nur auf If passwort=Eingabe$ geschaut....

Müsste doch eig. RunProgram(test.txt) sein oder wenn ich es mit RunProgram versuche?

Nur dann sagt er mir beim ".exe" erstellen das es die test.txt nicht gibt...

Ich stell mich grad mal wieder ich dämlich an

Verfasst: **18.08.2008 21:03**

ach und btw... dass die datei unsichtbar ist, hindert niemanden daran, sie zu öffnen...
ich bekomme unsichtbare files alle angezeigt...

Verfasst: **18.08.2008 21:04**

CreateFile(0, "Test.txt")
FileSeek(0, Lof(0))

Welche Pappnase hat das Lof(0) hier eingeführt, der möge bitte vortreten und den Sinn erklären.

- Bei CreateFile() bringt das NICHTS. Die Datei ist anfänglich leer, warum also in einer leeren Datei an den Anfang springen?
- Bei OpenFile(), wie ich es weiter oben gelesen habe, wird das zu setzende Passwort immer an den Dateiinhalt angehängt. Wenn ich also 3x das Passwort "Bla" setze, steht in der Datei "BlaBlaBla".

@ Andy:
Suchst du sowas hier?

Code: Alles auswählen

Procedure PasswortSetzen(Passwort$, Datei$) ; Ergebnis ungleich 0, wenn erfolgreich
	Protected datei=CreateFile(#PB_Any, Datei$)
	If datei
		WriteString(datei, Passwort$)
		CloseFile(datei)
		ProcedureReturn SetFileAttributes(Datei$, #PB_FileSystem_Hidden)
	EndIf
EndProcedure

Procedure.s PasswortLesen(Datei$)
	Protected passwort$, datei=ReadFile(#PB_Any, Datei$)
	If datei
		passwort$=ReadString(datei)
		CloseFile(datei)
	EndIf
	ProcedureReturn Passwort$
EndProcedure

Die Prozeduren sollten selbsterklärend sein.

Verfasst: **18.08.2008 21:06**

Kaeru Gaman hat geschrieben:ich bekomme unsichtbare files alle angezeigt...

alle? sicher? NTFS? oder nutzte noch FETT32, dann könnte es sein

Verfasst: **18.08.2008 21:08**

AND51 hat geschrieben:
CreateFile(0, "Test.txt")
FileSeek(0, Lof(0))
Welche Pappnase hat das Lof(0) hier eingeführt, der möge bitte vortreten und den Sinn erklären.

- Bei CreateFile() bringt das NICHTS. Die Datei ist anfänglich leer, warum also in einer leeren Datei an den Anfang springen?
- Bei OpenFile(), wie ich es weiter oben gelesen habe, wird das zu setzende Passwort immer an den Dateiinhalt angehängt. Wenn ich also 3x das Passwort "Bla" setze, steht in der Datei "BlaBlaBla".

Das Thema war schon geklärt, falls es Dir entgangen ist

PureBoard

versteckte Datei öffnen