Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 < [ 2 ]

000
07.07.2004, 17:01 Uhr
FlAsH
keine Ahnung

Wenn ich kann wie mache ich dann das die datei sich selber zerstört?
also ich unloade die form dann soll sie sich selber löschen!

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
07.07.2004, 17:53 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

also
dafür muss die datei auf jeden fall existieren (die .exe)
dann machste folgendes wenn deine .exe von deinem proggi z.b. Lalala.exe heißt:

Visual Basic:

Private Sub Form_Unload(Cancel As Integer)
Kill App.Path + "Lalala.exe"
End Sub

Kill (Löschvorgang)
App.Path: Den Pfad in der sich die exe befindet
+ "Dateiname.exe" (den namen deiner dastei eben ^^)

Aber wie gesagt dafür mussne .exe existieren in irgendnem ordner.
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Dieser Post wurde am 07.07.2004 um 17:53 Uhr von Audron-AT-www editiert.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

002
07.07.2004, 17:58 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

oh merk grad ich haben fehler gemacht benutzt das:

Visual Basic:

Kill App.Path & "\" & App.EXEName & ".exe"

--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

003
07.07.2004, 17:58 Uhr
FlAsH
keine Ahnung

das hab ich auch schon versucht doch es kommt den fehler, logisch weil die datei ja noch offen ist! oder doch nich?

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

004
07.07.2004, 17:59 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

oh klappt auchnich ^^ der sagt wäre en accessory error oder so.
hm das liegt daran das das programm noch läuft und somit nich beenden werden kann! Das Problem is du kannst kein proggi beenden das läuft und erst beenden danach löschen geht auchnich weil der nachem unload keinen befehl mehr nimmt........
DAS ISN FALL FÜR PABLO

--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

005
07.07.2004, 18:01 Uhr
FlAsH
keine Ahnung

hmm hab ne idee warum mache ich nicht ne zweite datei die schlisst erst das programm und dann löscht es es aber das ist mir n bissel zu viel aufwand kann ich nich einfach machen das sie unbenutzbar is?

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

006
07.07.2004, 18:07 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

naja.daran habich auch grade gedacht.
das problem:

Programm.exe
Löschen.exe

in der löschen.exe löschste die programm exe

und beim schließen von der Programm.exe rufste die löschen .exe aus.
dein problem is aber imma nochnich gelöst weil es ja die Löschen.exe noch gibt

--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

007
07.07.2004, 18:54 Uhr
FloSoft
Medialer Over-Flow
(Administrator)

Da gibt es viele Möglichkeiten sowas zu lösen, weiß aber nicht ob das mit VB einfach möglich ist:

1. Batchdatei (leicht realisierbar)
2. WinInit.ini nachm neustart von win (ka ob unter Win NT,2k,XP unterstützt)
3. Speziellen Trick mit CreateProcess usw (weiß nicht ob das so einfach umzusetzen ist in VB)
--
class God : public ChuckNorris { };

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

008
07.07.2004, 19:27 Uhr
FlAsH
keine Ahnung

ich habe ne lösung gefunden dass einfach die datei unnutzbar macht:

Visual Basic:

Private Sub Form_Unload(Cancel As Integer)
'Datei Register.dat mit text Blocked erstellen
Open "C:\Register.dat" For Output As #1
Print #1, "Blocked"
Close #1
End Sub
'****************************
Private Sub Form_Load()
'Beim laden der datei nachschauen ob die erstellte datei existiert
  Dim Size As Long
  On Local Error Resume Next
  Size = FileLen("C:\Register.dat")
  FileExists = (Err = 0)
  On Local Error GoTo 0
'wenn existiert dann fehlermeldung anzeigen und programm shcliessen
  If FileExists = True Then
  MsgBox "ERROR: Die Datei steht nur einmal zur Benutzung da.", vbCritical, "ERROR"
  End
  End If
End Sub

Dieser Post wurde am 07.07.2004 um 19:51 Uhr von Pablo editiert.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

009
08.07.2004, 15:26 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

jo so gehts auch... Aber dann is deine datei immernoch da!
Und du wolltest die doch weg haben ?

--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ 2 ] [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: