PureBoard

Verfasst: **23.04.2006 12:22**

Ich wollte fragen ob es einen Code gibt wo sich die exe in ein bestimmtes Verzeichnis verschiebt/kopiert?

Verfasst: **23.04.2006 13:07**

Ägypten?

Verfasst: **23.04.2006 13:15**

Du meinst, du brauchst nen Code, der dir eine genaue Pfadangabe zurückliefert, in welchem Verzeichnis sich das Programm befindet, und wie die Programmdatei heißt? Dann schau mal hier:
http://www.purebasic.fr/german/viewtopic.php?t=4606

Verfasst: **23.04.2006 15:44**

@KG

Kairo?

@HF

Nein ich meine einen Code, bei dem sich die exe in ein bestimmtes Verzeichnis kopiert.[/url]

Verfasst: **23.04.2006 16:16**

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)

Verfasst: **23.04.2006 16:31**

Irgendwie klappt der bei mir nicht oder ich vertseh ihn nicht..
Muss ich da noch etwas verändern?

Edit:// GetModuleFileName() gehtbei mir nicht, da ich die Demo habe, klappts dann gar nicht?

Verfasst: **23.04.2006 17:08**

Nein, da musst du dir wohl die Vollversion zulegen.

Verfasst: **23.04.2006 17:14**

hardfalcon hat geschrieben:Nein, da musst du dir wohl die Vollversion zulegen.

MÄÄÄP Lüge

Besorg dir mal den ApiViewer schalt die Sicht auf Purebasic dann such nach GetModuleFilename

Verfasst: **23.04.2006 17:16**

ApiViewer?
Von Api schon mal gehört aber, was ist das?

NOOB! (ich)

Verfasst: **23.04.2006 17:26**

125 hat geschrieben:
hardfalcon hat geschrieben:Nein, da musst du dir wohl die Vollversion zulegen.
MÄÄÄP Lüge

Besorg dir mal den ApiViewer schalt die Sicht auf Purebasic dann such nach GetModuleFilename

Mann, stimmt ja! Daran hab ich noch gar nicht gedacht!

//EDIT: Mit dem Code hier kannst du GetModuleFileName_() ersetzen:

Code: Alles auswählen

OpenLibrary(0,"kernel32.dll")
CallFunction(0,"GetModuleFileNameA",hModule.l, lpFileName.String, nSize.l)

//EDIT2:

Dein Code wäre demnach:

Code: Alles auswählen

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

PureBoard

Kopieren

Kopieren