XProfan

- Página 2 -

Referencia 2:
Wenn du Toolhelp media, bist du como wohl en el falschen Dampfer. Lo va hier a Current Directory, also el, qué bajo Profano con CHDIR einstellen kann..

Frank
Abbing

Nene, como meinte Yo bastante qué más.
Ok, para el Hälfte el Prozesse Yo ya una solución, aber dein Programa war en efecto no perfekt

Tiempo sehen, si Yo heute abend una vez más más bastle.

ss.jpg	82 kB

Hochgeladen:	10.10.2006

Ladeanzahl:
		Descargar

¡Hola Franco...

Das sieht ya bastante bien de - bloß me es no en el Pfad pero a Current Directory.
Tal vez falsche API?

Sebastian
König

¡Hola Andreas,

Yo veces una bischen experimentiert y podría folgende Variante anbieten:

hook,prf
Kompilieren Marca Separación

!$DLL
 $H windows.ph

if %DLLInit

    FileMapping öffnen:
    declare hFileMap&,pMem#
    hFileMap& = ~OpenFileMapping(~FILE_MAP_ALL_ACCESS,0,"$__skgetcurrentdir_1_")
    pMem# = ~MapViewOfFile(hFileMap&,~FILE_MAP_ALL_ACCESS,0,0,0)
    Daten auslesen:
    declare id&,window&
    id& = long(pMem#,0)
    window& = long(pMem#,4)

    if id& = ~GetCurrentProcessId() Bin ich gemeint?

        Verzeichnis ermitteln und in FileMapping schreiben:
        ~GetCurrentDirectory(~MAX_PATH,pMem#)
        Event-Objekt öffnen und signalisieren:
        declare hEvent&
        hEvent& = ~OpenEvent(~EVENT_ALL_ACCESS,0,"$__skgetcurrentdir_2_")
        ~SetEvent(hEvent&)
        ~CloseHandle(hEvent&)

    endif

    Aufräumen:
    ~UnmapViewOfFile(pMem#)
    ~CloseHandle(hFileMap&)

endif

declare g_hHook&

dllproc StartHook,0

    g_hHook& = ~SetWindowsHookEx(~WH_GETMESSAGE,ProcAddr("DummyHookProc",3),%hInstance,0)
    return g_hHook&

endproc

proc DummyHookProc Tut gar nichts...

    parameters nCode&,wParam&,lParam&
    return ~CallNextHookEx(g_hHook&,nCode&,wParam&,lParam&)

ENDPROC

getdir.prf
Kompilieren Marca Separación

!$H windows.ph
 $H messages.ph
 $I hook.inc
Ventana de Estilo 520
Título de la ventana "Aktuelles Directorio fremder Prozesse auslesen"
Cls
declarar hFileMap&,pMem#
hFileMap& = ~CreateFileMapping($FFFFFFFF,0,~PAGE_READWRITE,0,512,"$__skgetcurrentdir_1_")
pMem# = ~MapViewOfFile(hFileMap&,~FILE_MAP_ALL_ACCESS,0,0,0)
imprimir "hFileMap&:",hFileMap&
declarar hEvent&
hEvent& = ~CreateEvent(0,1,0,"$__skgetcurrentdir_2_")
imprimir "hEvent&:",hEvent&
declarar hDLL&
hDLL& = UseDLL("hook.dll")
imprimir "hDLL&:",hDLL&
declarar id&
id& = Val(Entrada$("Eingabe","Bitte Prozess-ID angeben",""))
long pMem#,0 = id&,%hwnd
declarar hHook&
hHook& = starthook()
imprimir "hHook&:",hHook&
Sollte harmlos ser y dafür sorgen, dass alles con uno Nachrichtenschleife el Hook-DLL lädt:
~BroadcastSystemMessage(~BSF_POSTMESSAGE,0,~WM_COMMAND,0,0)

if ~WaitForSingleObject(hEvent&,2000) = ~WAIT_OBJECT_0

    imprimir "Verzeichnis ausgelesen:",cadena$(pMem#,0)

más

    imprimir "Keine Rückmeldung obtener :-("

endif

~UnHookWindowsHookEx(hHook&)
~UnmapViewOfFile(pMem#)
~CloseHandle(hFileMap&)
FreeDLL hDLL&
imprimir "Taste para Beenden!"
WaitKey
end

Funktioniert aber desafortunadamente längst no con allen Prozessen, pero sólo denen, que irgendwie dazu überreden dejar, el Hook-DLL a invitar. Yo vermute veces, dass Usted el Daten irgendwie anders (direkter) ermittelst...

MfG

Sebastian

P.S.: @IF: ¿Por qué voluntad eigentlich en abgeschalteter Code-Autoformatierung einzelne führende Leerzeichen no adecuado?

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Jörg
Sellmeyer

<offtopic>Wenn Usted direkt hinter [_code_] una Ausrufezeichen setzt behältst Usted Su Formatierung.
So [_code_]!</offtopic>

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

[quote:67096e4b87]P.S.: @IF: ¿Por qué voluntad eigentlich en abgeschalteter Code-Autoformatierung einzelne führende Leerzeichen no adecuado?[/quote:67096e4b87]
Das liegt a el Browsern - el canceln el Dopplungen.

Sebastian
König

[quote:3df4846fcf]

<offtopic>Wenn Usted direkt hinter [_code_] una Ausrufezeichen setzt behältst Usted Su Formatierung.
So [_code_]!</offtopic>

[/quote:3df4846fcf]
Das Yo auch gemacht (bin kein großer Fan el Autoformatierung *duck*

), aber einzelne Leerzeichen al Zeilenanfang voluntad trotzdem no adecuado, zwei y mehr hingegen ya... Naja, si al Navegador liegt, puede ser como wohl nichts hacer...

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

¡Hola Sebastian...

So gehts natürlich auch - así tener ego pero no gemacht. Keine DLL-Injektion, lo son sólo una Ver código fuente!
Su Ver código fuente sieht muy interessant de - el Aprovecho me todavía genauer antes, besten Dank.

P.S. : Sí, el ermittele Yo direkter!

Yo geb veces todavía unos pocos Tipps:

Referencia 3: Wird el Proggi en el Sistema Account comenzó, liest lo mehr Current Directories de. Wer gar no otro Möglichkeit ha, podría el z.B. encima PrivAktivate tun:
- PrivAktivate como Service starten (encima Menü)
- Auf el ersten Registrierkarte entonces Anwendung auswählen clic

Referencia 4: Wer Treiber programa kann, kommt wohl al schnellsten en el Solución des Rätsels

Frank
Abbing

[quote:a144e540f8]Referencia 3: Wird el Proggi en el Sistema Account comenzó, liest lo mehr Current Directories de.

Referencia 4: Wer Treiber programa kann, kommt wohl al schnellsten en el Solución des Rätsels[/quote:a144e540f8]
Ok, como costumbre Yo nada más a rätseln. Ist no mein Thema.
Einen Treiber a escribir, en una Rätsel a lösen, halte Yo zudem para übertrieben...