.xxx als .exe starten

[kreeph]

Das zeigt mir im Debugger jetzt alles (Pfad) außer die Datei an. Schonmal etwas! Aber wie ich jetzt die Datei bekomme weiß ich immer noch nicht. Vielleicht kann man das mit deinem Code, ich aber nicht.

edit: omg bin ich blöd... das Ding zeigt mir den Pfad!
Wenn das so klappt kann ich doch auch alles außer der Datei wegmachen?

[ts-soft]

Hab mich verlesen

Code: Alles auswählen

Procedure.s GetFile(File.s)
  If OpenLibrary(0, "shlwapi.dll")
    CallFunction(0,"PathStripPathA", @File)
    CloseLibrary(0)
    ProcedureReturn File
  EndIf
EndProcedure

Debug GetFile("c:\windows\system32\notepad.exe")

[PureBasic4.0]

Nur mal, um die Sicherheit anzusprechen: Wenn jemand dein kleines "Geheimnis" mit dem Umbenennen der .xxx in .exe kennt, kann er das "gar so wichtige" Programm einfach ausführen. Ich würde wenigstens mit BriefLZ (PBOSL) oder der PureBasic internen Pack-Funktion das Programm wenigstens komprimieren. Könnte dir aber BriefLZ empfehlen, da das wesentlich schneller ist.

[ts-soft]

@PureBasic4.0
BriefLZ für PB 3.30? PBOSL unterstützt den OldTimer nicht

[PureBasic4.0]

BriefLZ für PB 3.30? PBOSL unterstützt den OldTimer nicht

wieder ein Grund, auf PB 4 Upzugraden

[ZeHa]

Die Date ist natürlich schon eine ursprüngliche .exe, aber wegen ev. geheimen Verschlüsselungen( ) muss ich sie in einem anderen Format speichern.

Kannst Du nicht einfach mal ganz normal und verständlich erklären, weswegen Du eine .exe in .xxx umbenennen willst und was der tiefere Sinn dieses Vorhabens ist? Vielleicht gibt es für Deine Zwecke ja noch eine völlig andere, aber evtl. viel sinnvollere (und besser funktionierende) Lösung.

[kreeph]

Also das mit der exe ist schon gesichert. Nunja zumindest auf meinem Niveau . Man muss sie über ein anderes Programm starten und es wird nur richtig ausgeführt, wenn man es mit dem richtigen Parameter startet. Diese spezielle Endung brauch ich um mit dem Programm, das die .xxx startet, diese in einem OpenFileRequester() leichter zu finden.

[Leonhard]

Ist das nicht so etwas besser? Zudem funktioniert es jetzt auch mit Unicode.

Code: Alles auswählen

Import "shlwapi.lib"
  PathStripPathA(*Buffer)
  PathStripPathW(*Buffer)
EndImport

Procedure.s GetFile(File.s)
  CompilerIf #PB_Compiler_Unicode
  PathStripPathW(@File)
  CompilerElse
  PathStripPathA(@File)
  CompilerEndIf
  
  ProcedureReturn File
EndProcedure 

Debug GetFile("c:\windows\system32\notepad.exe")

Ich arbeite aus bestimmten gründen nur noch mit Unicode. Ich finde, das man da nichts falsch machen kann.

[kreeph]

@Leonhard
klappt in 3.30 nicht

Naja von den Fragen hier ist ja alles größtenteils beantwortet und deshalb will ich die Gelegenheit nutzen, um noch eine Frage zu stellen. Ich hab mich unter Suchen schon danach umgesehen und eine Menge gefunden, aber nix was sich mit 3.30 vertragen hat... Es geht darum ein StringGadget mit Enter zu bestätigen. Habe mich schon sehr lange in der Hilfedatei umgesehen aber es geht immer noch nicht.
Vllt. kann mir ja jemand von euch einen Link zu einer 3.30er Lösung geben oder ein Beispiel.

[ts-soft]

@Leonard
>> Ist das nicht so etwas besser? Zudem funktioniert es jetzt auch mit Unicode.
Wenn ich das bräuchte würde ich einfach:

Code: Alles auswählen

PathStripPath_(buffer)

Paßt sich automatisch den Compiler-
einstellugen an