Kopieren

[125]

Hab kurz für dich nachgeschaut:
Anstatt:

Code: Alles auswählen

Ziel.s = "c:\windows\temp\test.exe"
Path.s = Space(#MAX_PATH * 2)
GetModuleFileName_(0, @Path, #MAX_PATH * 2)
CopyFile(Path, Ziel)

machste:

Code: Alles auswählen

Ziel.s = "c:\windows\temp\test.exe"
Path.s = Space(#MAX_PATH * 2)


OpenLibrary(0,"kernel32.dll")
CallFunction(0,"GetModuleFileNameA",0, @Path, #MAX_PATH * 2)
CloseLibrary(0)

CopyFile(Path, Ziel)

//Edit: Argh HF war schneller aber er hat das CloseLibrary vergessen

[Alves]

Hab kurz für dich nachgeschaut:

Code: Alles auswählen

Ziel.s = "c:\windows\temp\test.exe"
Path.s = Space(#MAX_PATH * 2)


OpenLibrary(0,"kernel32.dll")
CallFunction(0,"GetModuleFileNameA",0, @Path, #MAX_PATH * 2)
CloseLibrary(0)

CopyFile(Path, Ziel)

Also bei mir fährt er das Programm erfolgreich aus, aber es passiert nichts. Deshalb die Frage: Muss ich in dem Code noch irgendwas verändern außer oben bei Ziel.s??

[125]

also bei mir erstellt er C:\windows\temp\test.exe

Bist du dir sicher das die ordner in die du reinkopieren willst existieren?

[Alves]

Abgesehen davon, dass ich #MAX_PATH noch benennen muss, erstellt er es nicht.

[125]

Versuch mal:

Code: Alles auswählen

Path.s = Space(560)

[Deeem2031]

Was soll #MAX_PATH * 2 eigentlich bringen? Mehr als #MAX_PATH geht nich, also kann man auch einfach #MAX_PATH nehmen...

[Kaeru Gaman]

erst rechner runterfahren, dann scherzprog, jetzt kopieren...

....du glaubst ja wohl nicht, dass jemand ne exe von dir runterlädt und ausprobiert...

ich selber würde nen code von dir nur probieren, wenn ich jede zeile durchgesehen hab...

...was bei deinem kenntnisstand auch nicht schwer sein dürfte...

[ts-soft]

Was soll #MAX_PATH * 2 eigentlich bringen? Mehr als #MAX_PATH geht nich, also kann man auch einfach #MAX_PATH nehmen...

#MAX_PATH ist nur für einen Pfad, hier ist aber noch ein Dateiname bei, der auch IMHO 128 Zeichen lang sein darf.

[Alves]

@ KG
Diese ganzen Sachen will ich nur für meine Freunde wissen, die schicken mir genauso scheisse, aber die is nichmal selbst geproggt.
Ihr könnt sicher sein, dass etwas dass ich ins Forum stelle, sicher ist, es sei denn ich schreibe groß davor dass es ein virus/scheißprog ist!

Willst du mich hier beleidigen?
Ich Programmiere mit PureBasic seit Mittwoch!

@ 125
geht auch nicht.

[Kaeru Gaman]

Willst du mich hier beleidigen?

nö keine sorge. ich bin halt oft a bissel unverschämt.