XProfan

Syntaxfehler in Zeile 1: DEF

Beispiel für richtige Syntax:
Kompilieren Markieren Separieren

Def @MoveWindow(6) !"USER32","MoveWindow"

Zudem,

wenn Du eine Stringvariable an eine API übergibst ists sicherer zusätzlich addr zu
verwenden DeleteFile(addr(filename1$)), in nProcs wäre dies jedoch überflüssig.

Gary12345

Ja ich merks. Und ich schaue tausendmal in die Hilfe und merke sowas nicht

Wie kann sowas passieren. Ich arbeite noch viel zu unbedacht. Sorry.

Bye

XProfan X2
MfG
Gary12345

Kein Problem.

Wenn Du Dir mit sowas zum gefühlt zwölften Mal gleich ein paar tausend Quelltexte
von der Platte gemäht hast dann hilft das erfahrungsgemäß auch nichts -

also ärgere Dich nicht!

Kompilieren Markieren Separieren

Gary12345

Def @De(1) !"Kernel32","DeleteFileA"
cls
var filename1$ = "C:\\AdwCleaner[R1].txt"
var test1& = @De(addr(filename1$))

While 1

    WaitInput

EndWhile

Diese API geht immer noch nich. Ich habe noch eine andere API (Messagebox) ausprobiert, die geht.

LG

XProfan X2
MfG
Gary12345

Dann schaue doch mal was test1& für einen Wert hält und GetLastError ( [...]

) -

meist ist dann schon klar wo der Schuh auf die Senkel drückt.

Kompilieren Markieren Separieren

Gary12345

 $H C:\XProfan9\include\WINDOWS.PH
Def @De(1) !"Kernel32","DeleteFileA"
Def GetLastError(0) !"Kernel32","GetLastError"
cls
var filename1$ = "C:\\AdwCleaner[R1].txt"
var test1& = @De(addr(filename1$))
var test2$ = GetLastError(test1&)
print test2$

While 1

    WaitInput

EndWhile

stimmt das? Ich erhalte den Wert 5 zurück?

XProfan X2
MfG
Gary12345

Weiß ich was Du zurückhältst und fragte ich Dich danach und GetLastError hat
gar keinen Parameter?

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Wenn du die Header-Files schon einbindest, dann musst du die Funktionen nicht zusätzlich definieren.
Kompilieren Markieren Separieren

 $H Windows.ph
cls
var filename1$ = "C:\\AdwCleaner[R1].txt"

If ~DeleteFile(Addr(filename1$))

    Print filename1$+" gelöscht"

else

    Print filename1$+" nicht gelöscht"

Endif

waitinput

XProfan X2
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

Gary12345

Ausgabe: Adwarecleaner.txt nicht gelöscht. Also in diesen Headerdateien sind schon diese Funktionen eingebunden, oder wie?

XProfan X2
MfG
Gary12345

Genau, Du kannst die PH-Dateien auch öffnen und einsehen.

Hier gibts auch welche wenn man mal eine nicht parat hat: [...]

Andreas wertet in seinem Beispiel den Rückgabewert der Funktion aus und erstellt
danach die entsprechende Ausgabe. Wenn die Datei nicht gelöscht wird dann mach
mal nach deleteFile ein print @WinError$(~getLastError())