Trickserei: Programmpfad ermitteln

[horsthorn]

Wenn du mir sagst, in welcher API das steht !
Habe versucht, den Beispieltext aus der Profan-Hilfe zu starten, kommt die Fehlermeldung

[AHT]

Zitat von horsthorn

Wenn du mir sagst, in welcher API das steht !
Habe versucht, den Beispieltext aus der Profan-Hilfe zu starten, kommt die Fehlermeldung

Fehler in Profan? Frag mal Roland, ich schau nach der API und schicke dir Code.

Zu der anderen Sache... Ich habe kein XPRofan11 und kenne deinen Quelltext nicht, deshalb musst du mal schauen, was davon stimmt, was ich hier schreibe.
Du scheinst die ausgelesenen Prozessdaten in eine Datenbank zu schreiben. Wenn auf die Gridbox geklickt wird, ermittelst du dann den ausgewählten Eintrag und liest daraufhin damit den betreffenden Datenbankeintrag aus. Wenn man aber nicht auf einen Eintrag klickt, sondern an eine andere Stelle der Gridbox (Rand), kann es dazu kommen, das plötzlich gar kein Eintrag mehr ausgewählt ist (-1?). Versuchst du dann daraufhin die Datenbank damit auszulesen, haut das nicht hin.

[AHT]

Das müsste gehen...

 
Declare Long# 'Langer Dateiname 

CLS

Print ShortName$(Par$(0)) 'Zum Testen
Print LongPathName(ShortName$(Par$(0))) 'Zum Testen
Waitkey
Proc LongPathName
 Parameters Short$,Long$
 Dim Long#,1001
 External("Kernel32.dll","GetLongPathNameA",addr(Short$),Long#,1000)
 Long$=String$(Long#,0)
 Dispose Long#
 Return Long$
Endproc

[AHT]

Hallo Horst - hab jetzt die Stelle:

[AHT]

Zitat von horsthorn

Wenn du mir sagst, in welcher API das steht !
Habe versucht, den Beispieltext aus der Profan-Hilfe zu starten, kommt die Fehlermeldung

Hallo Horst...

Ich meinte da nicht die API, sondern den Profanbefehl LongName$.
Suche mal in der Profan-Hilfe nach LongNames.

@LongName$(S)
S: String - Mit @ShortName$ ermittelter Kurz-Name (8.3) einer Datei (incl. Pfad)
Ergebnis: langer Name von Pfad und Datei
Diese Funktion ermittelt zu einem kurzen Dateinamen (System 8.3) den dazugehörigen langen Dateinamen. Dabei darf der Dateiname auch einen Pfad enthalten. Wenn die Datei nicht (mehr) existiert wird ein Leerstring zurückgegeben.

[horsthorn]

Andreas

Hallo Horst - hab jetzt die Stelle:

Die Stelle und Klicken außerhalb der Gridbox wurde "entschärft"

Jetzt kommt der Longname$ dran...

[AHT]

Hab noch eine Kleinigkeit gefunden:
Wenn man das Proggie auf Systemen niedriger als XP ausführt, kommt eine Messagebox. In der Messagebox steht noch PfadScan nicht Path-Scout.
Wie sieht's mit den langen Dateinamen aus?

[horsthorn]

@Andreas
Bastele grade an der "ultimativen" Version - Soll möglichst auf allen 'normalen' Auflösungen von 800x600 aufwärts laufen. -
Lange Dateinamen dürften jetzt korrekt angezeigt werden.
[ prozesspfad$ = Longname$(prozesspfad$) ]
Den Fehler in der Messagebox habe ich behoben. Da hattest du festen Text eingetragen und ich habe darüber weg gelesen. Habe den Text jetzt durch die Variable 'programm$' ersetzt.
Jetzt kann das Teil heißen, wie es will, wird immer korrekt angezeigt.
Denke mal, dass ich spätesten morgen abend die neue Version hoch lade

PS: Danke für den Gästebucheintrag.
Komischerweise laden sich viele bei mir etwas runter (Habe ein Zählprogramm, welches mir das anzeigt), aber keiner hat die Zeit und Lust, mal einen Satz in das Buch zu schreiben !

[AHT]

Zitat von horsthorn

PS: Danke für den Gästebucheintrag.
Komischerweise laden sich viele bei mir etwas runter (Habe ein Zählprogramm, welches mir das anzeigt), aber keiner hat die Zeit und Lust, mal einen Satz in das Buch zu schreiben !

Mache ich in der Regel auch nicht mehr. Ich schätze mal, viele habe den Verdacht, dass die dort eingegebenen Personendaten in der Regel an den Provider weitergeleitet werden, der diese dann verkauft.

[AHT]

Hallo Horst...

Wie denkst du über die hier angesprochenen möglichen Erweiterungen?
Was könnte / sollte man davon auf Dauer noch einbauen?

Was halten andere für sinnvoll?

[horsthorn]

@Andreas

oder wäre dann die Gefahr zu groß, das sich irgendwelche User, die sich im Prinzip nicht auskennen, mit "wildem Herumklicken" irgendwelche Sachen auf ihrem Rechner "kaputtschießen"?

Da liegt der Hund begraben!
Der Einbau selbst dürfte kein Problem sein (Zusatzfenster , vielleicht 'Childwindow" oder so)
...aaaaber - wenn ein 'Unbedarfter' alles zerstört, sind wir die Dummen!
Da müsste dann eine automatische Datensicherung die Möglichkeit anbieten, den alten Zustand wieder herzustellen.

[AHT]

Wie sieht es mit dem Anzeigen dieser Flags aus? Es wäre ja wichtig zu wissen, ob irgendein Prozess durch diese Flags geschützt wird, denn den sollte man dann auf keinen Fall einfach so beenden. Das ist auch so eine Sache, die weltweit bislang kaum ein Programm auf die Reihe bekommt.

Da das recht wichtige Sachen sind, dürften die nicht in ein extra Fenster. Vielleicht ist noch Platz ganz hinten im Listview oder unten, im blauen Bereich? Vielleicht könnte man dazu auch das erste Icon im Listview verwenden, ...vielleicht so in der Art:
- Rotes Schloss = geschützter Prozess
- Blaues Schloss = geschützter Thread
- Rotes und Blaues Schloss = beides geschützt
- Grüner Haken = keiner der beiden Flags ist vorhanden

[horsthorn]

Morgen kommt erst einmal die vorläufige Version 1.03 auf meine HP -
Die Flags sind ja deine Sache.
Schreib du den Codetext und ich zerbrech mir dann den Kopf über das Anzeigen Wird sich schon was finden

"Schau'n mer mal !"

[AHT]

OK, bastele was zusammen.

[AHT]

Hab mir grad deine neue Version heruntergeladen - gefällt mir supergut!
Die Codes für die Flags schreibe ich nächste Woche noch.

Path-Scout 1.03 unter Vista: