ExE selbst löschen

[Gubbie247]

Hallo.
Ich möchte eine Botschaft a la "Mission Impossible"(diese Nachricht zerstört sich nach 5 Sekunden selbst) machen. Gibt es eine Möglichkeit. Das Programm zu löschen?

[benny]

Hast Du schon mal bei PureArea gesucht

Vielleicht hilft Dir das :

http://www.purearea.net/pb/german/sr_vi ... OwnExe1.pb

[nco2k]

hmm... bei mir passiert da nix.

c ya,
nco2k

[JanFredi]

Hi
In der Demo 3.90 von PureBasic geht der Code nicht.

[Franky]

Mit der Demo kann man keine Apis (also funktion_( )) nutzen

[MVXA]

Wenn du die die alte GetExeName() Prozedur mit dieser hier austauscht:

Code: Alles auswählen

Procedure.s GetExeName()
    DefType.l libKernel32, ModulhWnd
    DefType.s AppName
    
    libKernel32 = OpenLibrary(#PB_Any, "kernel32.dll")
    If libKernel32 <> 0 
        AppName   = Space(256) 
        ModulhWnd = CallFunction(libKernel32, "GetModuleHandleA", 0)
        CallFunction(libKernel32, "GetModuleFileNameA", ModulhWnd, @AppName, 256) 
        CloseLibrary(libKernel32)

        ProcedureReturn AppName
    EndIf
EndProcedure

Müsste es sogar mit der Demo funktionieren. Mit dieser Funktion öffnest du die DLL Kernel32.dll, in der die meisten APIs stehen und rufst dann die 2 Funktionen manuel auf. Das ist zwar etwas langsamer, als wenn das PB macht aber es dürfte reichen .