Überflüssige Algorithmen Teil II (Experimentalprogramme)

[p. specht]

Hallo und Willkommen im Teil II unserer Programmmüll-Deponie.
--------------------------------------------------------------------------------------------------
Hier rasch eine kurze Zusammenfassung, was im Teil I zu finden war. Danach bitte ich wieder um eure Versuche, problematischen Experimente, Dinge die nie funktionierten und Hinweise, die keiner braucht.

Übersicht zu Teil I und II "Überflüssige Algorithmen (Programmierabfall)"

In diesem vormaligen Thread findet Ihr Beiträge zu folgenden Themen:
--------------------------------------------------------------------------------------------------
Allgemeines
Informatik allgemein
Unterthema Supercomputing
WINDOWS
Unterthema Programmier-Utilities:
Unterthema Sicherheit
Unterthema Vista & Win7
Unterthema Konsolenprogramme und Treiberprogrammierung
XProfan-Hinweise
Mathematik und Ganzzahlenrechnung
Unterthema Numerische Näherungsverfahren
Unterthema Spezielle Zahlen
Unterthema Primzahlen
Unterthema Kombinatorik
Unterthema Operations Research und Ganzzahlige Optimierung
(Unscharfe) Stringsuche
Sortieren
Datum und Zeit
Mausprogrammierung
Graphikroutinen
Unterthema 2D & Labyrinth-Algorithmen
Unterthema 3D
Video
Musik (bzw. Sound)
Spiele
Internet
Datenformate
Kurioses
--------------------------------------------------------------------------------------------------

======================================
Überflüssige Algorithmen Teil II (Experimentalprogramme)
======================================

______________ THEMENÜBERSICHT ________________

MULTIMEDIA:
- Unterthema Video
- Unterthema Sound

MATHEMATIK:
- Unterthema Algebra
- Unterthema Matrizenrechnung
- Unterhema Zahlentheorie
- Unterthema Kombinatorik

UTILITIES (Nützliche Helferlein):
- mit Unterthema Stringhandling

SYSTEMPROGRAMMIERUNG (API etc):
- Unterthema Grundlagen der Systemprogrammierung
- Unterthema Fortgeschrittene System- und API-Programmierung
SICHERHEIT
FUN-PROGRAMME
TIPPS & TRICKS
HARDWARE / MICROPROZESSORTECHNIK
SONSTIGES


==========================================


______________ INHALTSVERZEICHNIS

#3 Hinweis: Übersicht zum Inhalt von Teil I

MULTIMEDIA
--------------
Unterthema Video

#007 Prog: Prof. Chaos' "Software-Fernsteuerung der TV-Card"
#241-243 Hinweis: Optimiert Videos brennen: "Wie kann man das noch in Aufzeichnung stehende Programm erkennen?"
#248 Prog: "Greedy: Combine next DVD - Einpassen von Dateien auf DVD-Rohlinge", bitte Vorsichtshinweis unter #256 beachten!
#256 Hinweis: Warnung vor GreedyFit in #248

Unterthema Sound

#104-106: Hinweis und Link zur Soundmanipulation unter XProfan: Welche Bass.dll-Version nehmen?
#224 Prog: "Eine selbstberechnete Sounddatei (raw-Format) im Speicher abspielen"
#226 Prog: "Norm-Wähltöne selbst erzeugen"
#229 Vorschlag: "Börsenkurse anhörbar machen" (Basis: Eine alte Meldung aus 1995)


MATHEMATIK
---------------
Unterthema Algebra:

#029 Prog: Polynome bis ca. 12. Grades lösen - Das Bairstow-Verfahren
#046 Prog: Quersumme riesiger Integerzahlen
#059 Prog: "Rüttelfestigkeit von Floatingpoint-Variablen" (zum Austesten systematischer Rechenfehler)
#090 Prog: "Symbolische Addition zweier riesiger positiver Ganzzahlenstrings"
#103 Mathe: Rechts- oder Linkspriorität des Operators ^ (hoch) ?
#169 Prog: Tolerantes "Laden einer Float-Variablen aus einem String"
#185 Prog: "Komplexe Zahl aus einem Einzelstring einlesen"

Unterthema Matrizenrechnung:

#251-254 Prog: "Assemblerzugriff auf Float-Matrizen" (mit einem Peek-Nachbau)
#255 Prog: "Matrixmultiplikation in XProfan11: Die traditionelle Methode"
#257 Links und Hinweise: Mit dem Strassen-Algorithmus und/oder mit Assembler "Beschleunigte Matrix-Multiplikation"
#258 Hinweis: "Wozu ist Matrizenrechnung überhaupt gut?"

Unterhema Zahlentheorie:

#009 Prog: Der 1001te Primzahlen-Algo
#031 Prog: "Primzahlen schnell finden"...sucht alle Primzahlen in einem bestimmten Zahlenbereich 2..N
(Final verbesserte Version siehe #48)
#032-36 Prog aus #31 beschleunigt
#037 Info: Primzahlfunktion unter Anwendung der Modulo-Funktion
#038-42 Prog: Weitere Verbesserung des Primzahlenprogramms aus #31, sogar noch schneller
#043 Link: Ulam-Spirale (Primzahlenspirale) größtenteils enträtselt
#047 Prog: Primzahlen bestimmter Quersumme auffinden
#048 Prog: Primzahlenprogramm aus #31-36 u. 38-42 nochmals verbessert und mit Abspeicherfunktion
#051-52: Laufzeiten zu Prog aus #48
#054-56 Info: Größte Mitte 2011 bekannte Primzahl, "Hochhoch"-Funktion
#075 Prog: "Primzahlen mal anders": Bühler-Algorithmus (engl. Buhler) auf Basis der Schur-Zerlegung (nach Issai Schur). Unter der 5000. Primzahl sogar schneller als mit dem Sieb!
#075 Link: "Primzahlenseite"
#209 Links: Zahlentheorie-Seiten und Freewareprogramme; Programmpaket BIGNUM; Video "Artficial Idiots", Primzahlprüfung online

Unterthema Kombinatorik:

#026 Prog: Fakultät(x!) - als Beweis, daß man auch in Profan rekursiv programmieren kann
#027 Kombinatorik: Prog: "RENCONTRES-Zahl, DERANGEMENT und SUBFAKULTÄT"
#053 Prog: Formel für die Anzahl der Stellen und der Folgenullen einer Fakultät
#089 Prog: "Fakultäten auf volle Stellenzahl berechnen"
#165 Prog: "Lexikographisch nächste Permutation ausgeben"


UTILITIES
------------
#108 Prog: "Schaltbarer Windowstyle" (durch eine Art Eingabemaske)
#186,187 Prog: "Den Fensteraufbau nicht zerstörender Farbrahmen, z.B. für Fehlerinfo"
#143 Hinweise: "ASCII-Code Dateien in Vista/Win7-Umgebungen erfolgreich umwandeln" und
#157 Prog:" Mausposition absolut" (in Desktopkoordinaten) Achtung: Mit altem GOSUB!
#211 Prog: "Zahlenmäßige Ermittlung der Dimensionen und maximalen Indexgrößen eines Profan-Arrays auf Basis des ptype$-Strings"
#227 Hinweis/Prog: Fußgesteuerte Repeat-Schleife sinnvoll einsetzen

Unterthema Stringhandling:

#011 Prog: Eigenbau-Explode$( , ), bei dem "" als Trenner funktioniert
#092 Prog: "Stringhandling: Eigenbau Replace-Funktion"
#113 Prog "Hexereien": Byteweise Hexadezimalstring(de)codierung
"Unix/Linux-Texte: Das leidige CRLF-Problem"
#156 Links: Reguläre Ausdrücke in der Praxis, RegExStudio
#212 Prog: "Auslesen von Zahlenwerten aus einer via Internet verfügbaren, täglich upgedateten Teletext-Seite" (Demo).

Unterthema XProfan-Benchmarking:

#057 Profan-64bit Experimentalversions-Benchmark
#091 Prog: "Fairer Schleifenkonstrukte-Laufzeitvergleich - leider gescheitert"
#115 Prog: "Schnellste verschachtelbare Schleife in XProfan11"
#116 Prog: "Schnellste nicht verschachtelungsgeeignete Schleife" (Schon, aber dann ist sie nicht mehr schnellstmöglich)
#120 Hinweis: Schnellste Microcontroller-taugliche Schleife (in Assemblersprache des Controllers)
#121 Prog: Herausforderung" CLS-Standardfenster 640x480 mittels SetPixel in möglichst kurzer Zeit vollständig färben"
#124 Prog aus #121 mit ClonePixels bzw. "cls:randomize:setpixel 0,0,rnd(8^8):CLS getpixel(0,0)"
#125 Thema Vergleichbarkeit von Laufzeitbenchmarks
#133 Hinweis: Downclocking als Hindernis beim Benchmarking unter Leistungsbedinungen
#138 Prog: "Gerechterer Laufzeitvergleich" (mittlere Laufzeiten aus mehreren Läufen)
#139 Hinweis zu #138: Umreihung innerhalb des Programms wäre doch erforderlich (Runtime Bias!)
#188-205,207-208 Hinweise & Demos: "Whileloop stoppt nie mehr, wenn Integer-Overflow aufgetreten ist",#201 Klarstellung durch RGH


SYSTEMPROGRAMMIERUNG
-------------------------------
Unterthema Grundlagen der Systemprogrammierung:

#020 Prog zum Grenzen ausloten: Xprofan und Stringspeichergrenzen
#021-25 Grundlagen: "Virtueller Speicher eines Prozesses": Einfluß des "Zusammenhängend verfügbaren Speichers"
#058 Prog: "Genauere Systemdaten und Laufzeitumgebung (pre-Beta)"
#081 Prog: "Anfänger-Versuche mit der GetSystemMetrics-API" mit Link: MSDN-Erläuterungen zu "GetSystemMetrics"
#086 Prog: "Neues großes Window, das aber Taskbar(s) nicht verdeckt"
#087 Prog: #86 "Taskbar(s) nicht verdeckt" - ausführlicher erläutert (für uns Anfänger).
#088 Erläuterungen zu #87
#097 Prog: Volkmar's Doppelstartverhinderer, "Beschränkung der Anzahl aufrufbarer Programminstanzen"
#098 Prog: #97, rückgebaut von X2 auf XProfan11
#170 SystenProg: "Abfangen von wilden Userclicks", bloß weil der Algorithmus oder die API die Gelduld des Anwenders ein bisschen überfordert...
#171 Prog: "Alle Programme mit einem bestimmten gleichen Fenstertitel schließen" = Alle Instanzen schließen

Unterthema Fortgeschrittene System- und API-Programmierung:

#012 Systemprogrammierung: AHT: Kleines Proggie um zu testen, ob bestimmte spezifische Zugriffsrechte auf Dateien und Ordner bestehen.
(Standardmäßig ist FILE_GENERIC_WRITE eingestellt).
#014 Systemprogrammierung: Link zu ModRenamer: "Worauf man sich in Windows nicht verlassen kann..."
#015 Process Explorer: Eigenartiges ab Vista...
#060 SystemProg: AHT-Testproggie, mit dem man ein Programm mit einem nicht angemeldeten Useraccount starten kann
#062 SystemProg: Verschiebbares Edit - geht leider nur ein Mal.. ;=)
#063.. API-Prog: Verrückte MessageBox
#078 Erläuterungen zu #72
#100b Links zum Thema Drag And Drop und OLE 2.0 (Achtung, viel und kompliziert)
#141 SystemProg: AHT´s Analyse: In der Registry steht manchmal nicht der komplette Pfad oder eine Umgebungsvariable!
#144-146 SystemProg: AHT´s "Prozesse auflisten"
#148-156 SysProg: AHT´s Hinweis auf eine auch in Win7 noch bestehende konzeptuelle Schwäche
#175-184 SystemProg: "Hängende Anwendungen abschießen" (wurde für Java-Fenster aber deaktiviert)
#206-210 Prog: AHT's "Programm, das darauf besteht, ausschließlich via Link gestartet zu werden"
#232-233,235-237 API-Prog: "Kommunikation zwischen zwei Fenstern"


SICHERHEIT
--------------
#069 SysProg: AHT´s Big Brother "Process-Beobachtung": Ich weiß, wo du gerade gewesen bist...
#072 SystemProg/PCU/Link: Andere Programme dazu bringen Sachen zu tun, für die sie eigentlich nicht programmiert sind: APC_HOOK.zip, Erläuterungen ab #77,

Sicherheitsüberlegungen in #74 und #79
#074 Sicherheitsüberlegungen zu #72, siehe auch #79
#134 Links: SICHERHEIT? "Warum Antivirus-Software im entscheidenden Moment versagen muß"
und "Wie man trotz erforderlicher Admin-Rechte ein Autostart-Programm erfolgreich startet"
#142 Links: Sicherheit: AHT und Volkmar schreiben Programm, das mit dem äusserst bösen "BKA-Trojaner" fertig wird. Resultat siehe #238
#238-249 Link: SICHERHEIT: Wirksames Programm von Volkmar und AHT gegen den "BKA-Trojaner"


FUN-PROGRAMME
---------------------
#017 Prog: Unfreiwilliger Mustergenerator durch ändern der Größe eines "Bildes"
#046 Hinweis: Dynamische GOTO-Variante, hier mit "esoterischen" XProfan11-Sprungmarken
#101 Thema Leute verwirren: Proc-in-Proc Experimente
#102 Info RGH: Klarstellung betreffend Ort und Scope von Proc-Prozeduren
#109 FunProg: "Dein PC kann Gedanken lesen" ;=)
#110 FunProg: "Experimente mit nichtkonventionellen Schleifen und Proc-Konstrukten":
... (D) DUMPWARE: Die REPEAT / CONTINUE Schleife; Prog: "Situative Awareness for Strings"
#111 Exklusiv für Interpreter (Compiler machts nicht): REPEAT-ENDWHILE Schleife
#114 FunProg "Überraschungsfenster" (Laufzeitvergleich für unkonventionelle Schleifenkonstruktionen)
#131 FunProg: "Fenster, von hinten betrachtet"
#214-219 FunProg (böse): Fast unkillbares Popupfenster "Ihre Windowsversion ist Sch...."
#220 FunProg (böse): "Aufforderung zum Neuinstallieren"
#221 Ordnungsruf


TIPPS & TRICKS
------------------
#213 Hinweis: 7zip kann Ressourcen in gezippten exe-Dateien anzeigen!
#234 Hinweis: Beispiel für einen IT-Projektmanagement-Arbeitspaketeplan
#244 Hinweis: Win 7 - Erleichterung durch Abschalten diverser "Erleichterungen"


HARDWARE / MICROPROZESSORTECHNIK
------------------------------------------------
#166-168 Hardware: Jonathan´s Eigenbau-Spielkonsole
#167 Hinweise: Steuerungsbau - wo die Piepen liegen


SONSTIGES
--------------
#013 EDV-Geschichte: Wem wir GOTO verdanken...
#095 Biologie: Gen-Anzahl veschiedener Lebewesen
#100a Links: Formelsammlungen Online und zum Download als pdf zu Mathematik, Statistik, BWL, VWL, Wirtschaftsenglisch
#107 Link: "Liste Systemschriftarten unter Win7" (weil das Spacing des Print-Befehls eigenartig wird)
#147 Glossse: Mein schleichender Realitätsverlust
#151 Link: Stroop-Effekt <http://de.wikipedia.org/wiki/Stroop-Effekt>
#158-164 Hinweise: Versteckte FEHLER in Quelltexten, die nur sehr schwer zu finden sind
#197 Links: Neue Internationale Zahlendarstellungsnormen verabschiedet: Alles wird komplizierter!
#245-247 Gerüchteküche

----------------------------------------------------


Gruss!

[Frabbing]

Tolle Übersicht, Peter. Ich hab sie auch mal in das erste Posting des Threads kopiert, wo du dir schon solche Mühe gemacht hast, alle Achtung!

[p. specht]

Gute Idee, Frank. Ich hatte das für die folgende, themengeordnete Auflistung vorgesehen:

------------------------------------------------------------------------------------
Inhaltsverzeichnis:
------------------------------------------------------------------------------------
Allgemeines
---------------
#30 Zusammenstellung: Griechische Formelzeichen
#100 Vier neue SI-Größenordnungs-Präfixe (Stand 2010)
#31 Links: Patentrecht und Urheberrecht
#33 Kappa? =elektrische Leitfähigkeit, Kompressibilität und Isentropenexponent!
#51 Hinweis EXCEL-2007-Bug
#52 Hinweis OpenOffice Calc Bug, wird sicher bald gefixt.
#115 Schicksal von OpenOffice nach Aufkauf durch ORACLE?
#142 Altcode nach Profan: Intel und AMD verlangen viel für Fortran-90-Compiler für Multicore
#143 Hinweis: Nimmste MingGW für Windows oder Linux, 32 oder 64 -Bit, das hat Fortran free!
#145 Hinweis: Alle neueren GCC Compiler (standard unter Linux) unterstützen Fortran 95.
MinGW ermöglicht die Nutzung von GCC unter Windows.
#154 Interessante Links, u.a.: Air Traffic Online
#155 Weitere interessante Onlinedienste
#223 Wir begrüßen Programmmiermüll-Fan Nr. 10.000
#231 Science: Mobiltelefon-Computer mit Wissen der Menschheit. World Future Society

Informatik allgemein
--------------------
#149 Aktuelles: Computer Science Technical Reports; Wiki-Link: "Die 13 Berkley-Zwerge"
#147 Prog "Pausen-Kontroll-Programm zur Überwachung (arbeits)müder Programmierer"
#239 Link: Artikel zu Marvin Minsky: Seele auch nur eine (wenn auch komplexe) Maschine.
#57 Link: ... Timeline_of_algorithms

Unterthema Supercomputing

#153 Thema Aktueller Stand bei Supercomputern 2011

WINDOWS
-------
Unterthema Programmier-Utilities:

#24 Prog Inc-Generator betr. "Wellknown SID's"
#28 Versuchscode "Movable Elements"
#10 Testprog: Kleines "Lernproggie", das versucht unter Vista den eigenen IL zu setzen

Unterthema Sicherheit

#6 Prog: Zombieprozess- und RootKitScanner
#39 Anleitung: Löschen der Spionagedatei index.dat
#41 Hinweise: Geht einfacher: Mit UNLOCKER 1.8.7
#42 Auch per API MoveFileEx() möglich
#43 Dank: FileSnapper wegen des $12019-Fixes für Pipes ausgebessert!
#126 Thema: Cryptographie - aktueller denn je... Seltenes Link auf PGP

#224 Thema: Avira "WebGuard" sieht alles! Kern installiert sich ungefragt.
#226 Schäuble und Oberpullach lassen grüßen...
#228 Beim letzten Update hat AVAST auch einen Web-Guard installieren wollen. Macht es bei Ablehnung aber nicht.

Unterthema Vista & Win7

#159 Trick Vista & Win7: Shift+"Rechte Maustaste" zu "Eingabeaufforderung hier öffnen"
#180 Thema Sicherheitsstufe von ausführbaren Programmen
#181 Thema Berechtigungen unter Vista und Win7
#182 Hinweis: Windows zeigt dir gar nicht, wie das wirklich aussieht.
#183 Thema NTFS-Dateiattribute, ATTRIB, Alternate Data Streams (ADS) & Tools zum Aufspüren
#184 Thema Die (gar nicht so) Einfache Netzwerk- und Dateifreigabe
#185 Thema Benutzerkontensteuerung (UAC) und Datei.manifest - Mechanismus
#186 Thema Virtualisierungssoftware
#191 Hinweis: UAC tut sehr viel mehr als hier erwähnt..Link: Was passiert, wenn man (ab Vista) die UAC deaktiviert?
#193 Thema & Link: Wenn die Zugriffssteuerung (UAC) dreinfunkt
#194 Hinweis: Durch die Sülze von M$ blickt im Prinzip keiner durch!
#195 Hinweis & Links betreffend das aktuelle Microsoft-Dateisystem NTFS
#207 Hinweis: no more Motherboard beep in Win7!
#241 Tipp "Ausführen"-Feld in Win7 einschalten (Ähnlich bei Vista)

Unterthema Konsolenprogramme und Treiberprogrammierung

#242 Hinweis: DOS ist nicht existent, Consolenprogramme sind echtes Windows
#243 Sieht nur so ähnlich aus, klappt aber. Link: Sourceforge-Versuch, ein 64bit-DOS die Beine zu stellen.
#209 ..da kein 64-Bit Treiber für den Lautsprecher!
#210 Wie schreibt man einen Treiber? Link: Demo-Treiber für Win NT samt Sourcecode.
#211 ...Alleine die Signierung wird zu Teuer sein...
#212 Link: Hier hat es wer versucht: 64-Bit-Treiber für Beep
#221 Wenn man etwas weiter liest, gibt es auch ne 64bit Version von dem Treiber, sollte funktionieren...
#215 ...Funktioniert bei Windows7-64 Home Premium leider nicht
#217 32-Bit Treiber lassen sich von einem 64-Bit OS nicht aufrufen <??>
#216 WinXP64-CD rumfliegen (dank MSDNAA). Eine Beep.sys ist zumindest mal drauf
#222 NICHT INSTALLIEREN! Es reicht schon, wenn Viren das umstellen!
#220 In einem 64-Bit OS leider auch (noch?) nicht zur Verfügung: Die ODBC-Treiber!

XProfan
-------
#58 PRINT-Fenster bei Überdeckung (11.2a)
#88 Wer hat aller XProfan-Homepages (Linkliste)
#108 Units
#125 Testprocs: XProfan 11.2a und Rekursionsformeln
#127 Nostalgie: READ/DATA - Ein Griff in die Mottenkiste
#141 Procs: Auskommentieren und Zeilenverbinden am Beispiel CASE: Was zum tüfteln!
#150 Nostalgie: Thread-Programmierung anno dunnemal: zweites Programm parallel starten
#196 Proc "While-lose For-Nextschleifen-Notlösung"
#197 Aufreg:...in eine halbe Proc zu springen ist doch zuviel des Guten!
#198 Chef: WHILELOOP kann schon seit vielen Versionen das Gleiche!
#199 Aber Verschachtelung über 40 bzw. n Whileloops? Nötig weil:
#201 Rekursive Programmierung unbekannter Tiefe - kommt oft vor. Elegante Algorithmen, insb. bei
Verpackungs/Beladungs-Aufgaben! Vgl: Prog "Binärzähler" mit an machen Stellen 5 Zuständen?
#202 Kritik: Brrr...Dann lieber Bedingungen einbauen. Möglichst kein Selbstmodifizierender Code!
#203 Kritiker liefert Beispiel "Sich selbst proragmmierender Code"
#204 203 ist Generator für eine Art COMPILIERBARES EXECUTE!


Mathematik und Ganzzahlenrechnung
---------------------------------

Unterthema Numerische Näherungsverfahren

#3 Prog: In einen älteren Mikroprozessor (6502) sollte "Kubikwurzelfunktion" rein
"NEWTON-RAPHSON"
#9 Prog "Gleichungswaage", Nachricht: Agrawal-Kayal-Saxena AKS-Primzahltest
#35 Thema Formeleditor schreiben: Wäre ganz schön kompliziert! Abhilfe Online!
#38 Info: Lösungen der "Schul"-Polynome im Reellen Zahlenbereich R.
#67 Proc "x=1/tanh(x) iterativ finden"
#69 Tabelle MATHE-SOFTWARE: Wolfram Mathematica, Derive (relativ teuer), MapleV, SciLab...
#92 y = x^x (Sophomore-Funktion);
#94 Aber deren Umkehrfunktion?..."Indikator" x_circa = s / log_10(s)
#95 Double precision Floating Point Variablen ('DpFP') in XProfan:
kleinst- und größte gerade noch darstellbare Zahl ermittelt
#148 Testprog "Die Leibnitz-Reihe konvergiert zu langsam gegen Pi/4"

Unterthema Spezielle Zahlen

#60 Links auf Programme, die Pi auf 2047 +/- 0.5 Stellen genau berechnen
#61 Link: 100000 Stellen von Pi
#62 Rekordhinweise: Pi auf 2.576.980.370.000 Stellen (Prof. Daisuke Takahashi),
Pi, auswendig auf 67890 Stellen
#90 Prog "Collatz-Problem"
#96 Nachricht: Schnellster Multiplikationsalgorithmus für große Integer-Zahlen
Info: Blum-Blum-Shub-Generator

Unterthema Primzahlen

#21 Primzahlen: Link auf Liste der ersten 80.000 Primzahlen im Excel-Format
Info: "Improved AKS"-Algorithmus
#22 Prog "Erathostenes auf Speed: Anzahl der gespeicherten Primzahlen"
#27 EINSCHUB: Geschichtliches, Code "Primzahlen, binär betrachtet"
#138 Prog "Specht´s Primel (c)2011ff" = Fraktal: Deterministisch, und doch Chaos

Unterthema Kombinatorik

#18 proc "Fakultaet", "Base", "GGT", "KGV", "Prim", "Frac", "Quersumme" -
#19 Prog "Bruchkürzer"; Höchste Zahl N, deren FAKULTÄT N! sich in XProfan11 einfach berechnen lässt: 170
Stirling-Formel (bzw. deren Float-Umsetzung) unterschätzt Wert. Besser StientjesLN4!
Prog "Fakultätenformeln im Vergleich"
#59 Prog "Integerzahl nach Graycode (z.B. Drehgeber-Emulator)"
#139 Prog "Lexikographisch aufsteigende Permutation eingegebener Worte"
#206 Prog "ALGORITHM L : LexicalComb(N,k) .. 1<=k<=N"
#229 Prog N faktorielle: N !, auch 'N Fakultät' genannt: "facto(N): N-factorial in Number Base B"
#230 Prog N-über-k Funktion (Binomialkoeffizienten des Pascal´schen Dreiecks) "BinCoeff(n over k) = n!/((n-k)!*k!)"
#233 Prog Kombinationen der Breite k aus N Elementen "Algorithm T","Algorithm X-7"
#239 Links: Stand der Kombinatorik; Richard P. Stanley

Unterthema Operations Research und Ganzzahlige Optimierung

#123 Thema: Grundsätzliche Pack-Varianten ermitteln (und letztlich optimieren)
#146 Test-Prog "THE SQUARE ASSIGNMENT PROBLEM SOLVER" (Übersetzt aus Fortran 74)


(Unscharfe) Stringsuche
-----------------------
#102 Unscharfe String-Vergleiche: "Levenshtein-Distanz"
#104 Link .prc-Testdatei "Kölner Phonetik"
#111 Frank = Frankie, aber <> Schrank: Ist doch was!
#112 Ja: Schneckenlangsamer Müll
#113 Testcodegenerator für Kölner Phonetik
#114 Aktueller Stand bei (allgemeiner) Textähnlichkeitsuche: MCWPA Algorithmus
#118 "Anagrammdistanz": Zeichenpositionsunabhängiger Wortvergleich
#119 Thema Ähnlichkeitsmaße im Data Mining, Algo BEREINIGTE HAUSNUMMERN


Sortieren
---------
#161 Prog "NONREKURSIVES QUICKSORT"
#163 Prog "NONREKURSIVES FLOATWERTE-QUICKSORT"
Prog "NONREKURSIVES STRING-QUICKSORT"
#166 Quicksort einer der besten Sorts für Durschschnittsdaten (Sortieren ist Mega-Out!)
#167 Welchen Algo z.B. benutzen Listviews?
#168 Thema: BurstSort, eine verbesserte Variante des "American flag sort" (vom Typ BucketSor)
Link: BurstSort C++ Bibliothek auf Sourceforge
#169 Durch Verwendung von Patricia-Trie-Techniken (Trie = reTRIEval-Technik "Practical Algorithm to Retrieve Information Coded in Alphanumeric", kein Schreibfehler in "tree"!) kann Speicherbedarf nochmal reduziert werden.
#170 Mitte 2006 wurde die Sortiergeschwindigkeit dann nochmals verdoppelt: CP-Burstsort ist doppelt so schnell
#187 Sortmethode bei Listview doch nicht wählbar.
#188 Hinweis & Link: LVM_SORTITEMS Message (Windows) wahrscheinlich sinnvoller
#240 Tipp: Ziemlich clever: Konsolenprogramm Sort.exe


Datum und Zeit
--------------
#122 Prog WOCHENTAGSBERECHNUNG "ZELLER´s KONGRUENZ"
#120 Hinweis: Missverständliches time$(1)
#121 Ab XProfan X2 (=12) wird time$(1) durch dt("getTime", 1) ersetzt


Mausprogrammierung
------------------
#1 Prog: "Cursor in oder ausserhalb Dreieck?"
#172 Beta-Prog "CrazyMouse 1.0beta"
#173 Trackball hat nur zwei Tasten, wird als 5-Tastige Maus erkannt?
#176 Maus mit Sondertasten: #define WM_XBUTTONDOWN 0x020B
#define WM_XBUTTONUP 0x020C WM_XBUTTONDOWN Message (Windows)
#178 Im Highword von wParam erhälst du Infos, welcher der beiden X-Buttons gedrückt wurde.


Graphikroutinen
---------------
#1 Prog: "Cursor in oder ausserhalb Dreieck?"

Unterthema 2D:
#11 Proc BRESENHAM-Linienalgorithmus
#17 Proc "Bresenham-Circles"
#37 Proc "Circle-Befehl" für ein fenstermittiges Koordinatensystem"
#45 Link: Voxel (Raumelemente): Voxelgrafik / Terrain - XProfan Community
#46 Hinweise: Mit OGL klappts besser
#49 Prog Schnittpunkte Gerade - Ellipse: Prog "Geripse"
#54 Unmenschlich dichter C-Code von Perlin´s Homepage
#80 PROC "EIGEN_DIAGRAMM" (Farbbalken)

#77 "Labyrinthalgo, der niemals richtig funktionierte"
#78 Trick: Mit Fill-Algorithmen Labyrinthrätsel lösen!
#79 Besser per A*-Algo: A*-Algorithmus: Pathfind.dll: Intelligente Wegsuche via externer Dll
#136 Prog "COHEN/SUTHERLAND-LINECLIPPING"
#137 Link: Geometric Tools

Unterthema 3D:
#47 Thema Voxel ( Voxelgrafik / Terrain - XProfan Community ) = Spezialität
#48 Meinung: für Simualtionen vielleicht...
#50 Mittagspausencommanche spielen: Voxelgrafik / Terrain - XProfan Community (Voxel)
#53 Link: Schwimmendes Java-Entchen etc.: Prof. Ken Perlin`s Homepage
#70 Thema "Rund um eine grosse Kugel wandern, z.B. per Maus?"
#72 Thread-Link dazu gefunden: Probleme mit Planeten-Steuerung... - XProfan Community.
#76 Hinweis: 3D-Rotationsmatrix zu Fuß nachgerechnet
#137 Link: Geometric Tools

Video
-----
#97 Link "videoInput Library"
Thema: Gesichtsauffindung und Gesichtserkennung mittels OpenCV: Verfahrensübersicht
Passfotos heute für Gesichtserkennung: Gemäß ISO/IEC 19794-5 zu fotografieren!
#98 Neuronale Netze erkennen Gesichter seitlich und im Halbdunkel

Musik (bzw. Sound)
----------------------
#23 Prog "Piano-Kanal vom Midi spielt Basis des Natürlichen Logarithmus oder Pi"
#212 Link: Hier hat es wer versucht: 64-Bit-Treiber für Beep

Spiele
------
#57 Link: PowderGame; Nachricht: euphoria, Link: Timeline_of_algorithms


Internet
--------
#85 SOCKETPROGRAMMIERUNG
#124 Thema HTML 5

Datenformate
------------
#87 Frage "Ein Wert pro Zeile"-Dateien
#245 Wieviele Byte gehen wirklich auf eine 12cm DVD+R bzw. DVD-R?


Kurioses
--------
#75 Prog "Eierformel"
#25 Fun: MYSTERY PROGRAMMING: LET, WEND. Dann: DOMAIN# und SID#...
#86 Was Wissenschaftler so treiben: Stadtmusikanten aus Atomen
#89 Link BASIC-Interpreter in JAVA
#99 Andere Logik-Formen wie z.B. "Kausalität", "Ironie": Link "Tropes & Idioms"
#110 Geheimnis des Lesens: Es kmmot auf die Vrpunekacg an! Link
#162 Hinweis: Vatertag war in D an Christi Himmelfahrt, in Österreich anderes Datum!
#232 Weisheit: ...oft besser, wenn man nicht alles weiss...
#234 Fun: Pi.z+z.a-Formel

------------------------------------------------------------------------------------

Wie gesagt, bezieht sich alles auf diesen Thread, nicht das nachstehende Zeugs!

Gruss

[Frabbing]

Mann mann, für deinen Müll machst du dir aber echte Mühe.
Du kannst meinen editierten Teil im Posting natürlich jederzeit nachbessern.

[p. specht]

Leider nicht... geschlossen ist geschlossen, auch für den Ersteller...
Wärst Du nochmal so nett bitte (Ersetzen)?

[Frabbing]

Ah, stimmt. Habs gerade ausgetauscht.

[Professor Chaos]

Vor wenigen Jahren war ich technisch rückständig... Die TV-Karte und das dazugehörige Programm waren aus den 90ern, gingen bei Aufnahme von mehr als 320x240 Pixeln in die Knie und hörten bei 2 GB (ca. 24 Minuten) komplett auf.

Andere Leute konnten bereits längere Sendungen größer aufzeichnen; sogar dann, wenn sie nicht zuhause waren. Konnte ich auch, aber nur durch Fernsteuerung des TV-Programms:

declare a$,b$
def SetCursorPos(2) !"USER32","SetCursorPos"
def mouse_event(5) !"USER32","mouse_event"
def keybd_event(4) !"USER32","keybd_event"
proc wait
  whilenot $(1)=time$(0)
    settimer 5000
    waitinput
    whilenot %wmtimer
      waitinput
    endwhile
    killtimer
  endwhile
endproc
proc click
  SetCursorPos(&(1),&(2))
  mouse_event(2,0,0,0,0)
  sleep 5
  mouse_event(4,0,0,0,0)
  sleep 5
endproc
proc type
  whileloop 1,%pcount
    keybd_event(&(&loop),0,0,0)
  endwhile
  whileloop 1,%pcount
    keybd_event(&(&loop),0,2,0)
  endwhile
endproc
windowtitle "Automatic TV Recorder"
windowstyle $1A
window 0,0-%maxx,%maxy
useicon "A"
cls 0
a$=input$("1. Uhrzeit eingeben:","Automatic TV Recorder",time$(0))
b$=input$("2. Uhrzeit eingeben:","Automatic TV Recorder",time$(0))
wait a$
winexec("C:\Programme\WinTV\WINTV32.EXE",3)
sleep 2000
click 368,34    ' Werkzeuge Videoaufnahme
click 68,729    ' Videoaufnahme Format wählen
type 18,50      ' Image Dimensions > 1/2
type 18,73      ' Image Format (Fokus)
type 35         ' Image Format > YUV12
type 13         ' OK
click 91,731    ' Aufnahme von Videoclips einrichten
type 49         ' "1"
type 190        ' "."
type 16,65      ' "A"
type 16,86      ' "V"
type 16,73      ' "I"
type 13         ' OK
click 22,733    ' Aufnahme von Videoclip starten
wait b$
click 512,384   ' Aufnahme von Videoclip stoppen
click 91,731    ' Aufnahme von Videoclips einrichten
type 36         ' Vor die "1"
type 16,39      ' "1" markieren
type 50         ' "2"
type 13         ' OK
click 22,733    ' Aufnahme von Videoclip starten

Hat prima geklappt, vor allem, wenn sich der jeweilige Fernsehsender exakt an meine Eingaben und Hardwarebeschränkungen gehalten, man selber keine Anzeigeeinstellungen verändert und den Satellitenreceiver während des Staubsaugens nicht aus der Steckdose geschmissen hat. (Der zweite Punkt war immer zutreffend!)

[Frabbing]

Tolle Sache.

[Jonathan]

Ach, was soll's, hier kommt der 1001te Primzahlen-Algo

Declare PrimAnz%, Primzahlen%[], PrimFound%, Zahl%
CLS
Set("Decimals", 0)
Assign #1, "Primzahlen.txt"
Rewrite #1
PrimAnz% = 1
Primzahlen%[0] = 2
Primzahlen%[1] = 3
Zahl% = 5
Print #1, "1: 2"
Print #1, "2: 3"
While 1
  PrimFound% = 1
  WhileLoop 0, PrimAnz%
    IfNot Zahl% MOD Primzahlen%[&loop]
      PrimFound% = 0
      Break
    Endif
    Case Primzahlen%[&loop] * Primzahlen%[&loop] >= Zahl%: Break
  EndWhile
  If PrimFound%
    Inc PrimAnz%
    Primzahlen%[PrimAnz%] = Zahl%
    Print #1, PrimAnz% + 1; ":", Zahl%
  Endif
  Inc Zahl%, 2
EndWhile

Gruß
Jonathan

[Jac de Lad]

Ich habe einen weitaus effizienteren, wenn es darum geht viele Primzahlen abzuklappern. Aber leider in Delphi, muss ich erstmal übersetzen.

[p. specht]

Explode( , ) mit "" als Trenner
liefert in Version 11.2a lediglich im Element 0 den ganzen String (PHP z.B. liefert diesfalls die einzelnen Buchstaben im Array ab). Abfrage weiterer Elemente führt zu "Element exisitert nicht"-Abbruch. Für rein interne Zwecke habe ich mir die Funktionen explode$ und implode$ gebaut (Ich vermute aber, daß man diese Bezeichner eigentlich RESERVIEREN sollte). Ob sie zweckmäßig definiert sind, kommt auf die jeweilige Anwendung an. Also bitte NICHT als Vorschlag für künftige Funktionen missverstehen!

Test:
cls
Font 2
var data$="abc def ghi jkl mno pqr stu vwx yz"
declare dmc$[]
print "TESTSTRING: ";data$
print
print "Explode$ ohne Trennstring 
print "-----------------------------"
dmc$[] = explode$(data$)
print "Exlode$-Element[2] enthält ";dmc$[2]
print "Exlode$-Element[3] enthält ";dmc$[3]
print "Exlode$-Element[4] enthält ";dmc$[4]
print 
print "Explode$ + Null-Trennstring + Ignorezeichen "+chr$(34)+" "+chr$(34)
dmc$[] = explode$(data$,""," ")
print "Exlode$-Element[2] enthält ";dmc$[2]
print "Exlode$-Element[3] enthält ";dmc$[3]
print "Exlode$-Element[4] enthält ";dmc$[4]
print 
declare zeile$,tn$

print
zeile$ = implode$(dmc$[])
print "Re-Implode$ mit nur 1 Parameter ergibt dann:"
print zeile$
print
tn$="|"
zeile$ = implode$(dmc$[],tn$)
print "Re-Implode$ mit Trennstring "+chr$(34)+tn$+chr$(34)+" ergibt:"
print zeile$
WaitInput
END

proc explode$
declare dyn$[]
if %PCount=1
  parameters str$
  whileloop 0,len(str$)-1
    dyn$[&Loop]=mid$(str$,&Loop+1,1)
  endwhile
elseif %Pcount=3
  parameters str$,trenn$,ignore$
  var n&=0
  declare n$
  whileloop 0,len(str$)-1
    n$=mid$(str$,&Loop+1,1)
    if n$<>ignore$
    dyn$[n&]=n$
    inc n&
    endif
  endwhile
else
  parameters str$,trenn$
  dyn$[]=@explode(str$,trenn$)
endif

Return dyn$[]
EndProc

proc implode$
declare st$
if %Pcount=2
  parameters stgs$[],trn$
  whileloop 0,@SizeOf(stgs$[])-1
    st$=st$+stgs$[&Loop]
    case &Loop=@SizeOf(stgs$[])-1:break
  st$=st$+trn$
  endwhile
else
  parameters stgs$[]
  whileloop 0,@SizeOf(stgs$[])-1
    st$=st$+stgs$[&Loop]
  endwhile
endif
return st$
endproc

Gruss

[AHT]

Kleines Proggie, um zu testen, ob bestimmte spezifische Zugriffsrechte auf Dateien und Ordner bestehen. Standardmäßig ist FILE_GENERIC_WRITE eingestellt. Unter Systemen ab Vista erklärt das einiges.

'#####################################################################################
'#########                          Code von AHT                             #########
'#########         Gepostet für http://www.paules-pc-forum.de                #########
'#########      Programm zum Testen von Rechten im Dateisystem               #########
'#####################################################################################
Def ExtractIcon(3) !"Shell32", "ExtractIconA"
DEF ImageList_Create(5) !"COMCTL32", "ImageList_Create"
DEF ImageList_AddIcon(2) !"COMCTL32", "ImageList_AddIcon"
DEF ImageList_Destroy(1) !"COMCTL32", "ImageList_Destroy"
Def SetWindowPos(7) !"User32", "SetWindowPos"
DEF GetDlgCtrlID(1) !"USER32.dll","GetDlgCtrlID"
DEF ButtonClicked(1) GetDlgCtrlID(@&(1)) = (%MENUITEM * -1)
DEF GetProcAddress(2) !"KERNEL32.dll", "GetProcAddress"
DEF GetModuleHandle(1) !"KERNEL32", "GetModuleHandleA"
DEF GetCurrentProcess(0) !"kernel32","GetCurrentProcess"
DEF CreateStatusWindow(4) !"comctl32.dll","CreateStatusWindow"
Def ImpersonateSelf(1) !"ADVAPI32", "ImpersonateSelf"
Def OpenThreadToken(4) !"ADVAPI32", "OpenThreadToken"
Def GetCurrentThread(0) !"kernel32","GetCurrentThread"
Def GetFileSecurity(5) !"ADVAPI32", "GetFileSecurityA"
Def AccessCheck(8) !"ADVAPI32", "AccessCheck"
DEF GetLastError(0) !"KERNEL32.dll", "GetLastError"
 
Declare Hicon&, Imagelist&, ExecuteHandle&, Hauptfensterbreite&, Hauptfensterhöhe&
Declare Iconname#, Module$, Ordner&, Datei&, Statusbar&, Statustext$
Declare LV1_Handle&, 64Bit&, Mudule$, Funktion$, MHandle&
Declare LVC#, Zeile#, OrdnerName$, Dateiname$, REZu&
Declare Schalter&, Edit&
Struct LVCOLUMN=Mask&, FMT&, CX&, Text&, Textlänge&, Subitem&
Struct LVITEM=IMASK&, ITEM&, ISUBITEM&, State&, StateMask&, ITEXT&, ITEXTMAX&, IIMAGE&, ILPARAM&
 
Let Imagelist& = ImageList_Create(16, 16, 33, 3, 3) 'Imagelist erzeugen
Module$ = $SYSPATH + "\" + "Shell32.DLL"
Let Hicon&=ExtractIcon(Executehandle&, addr(Module$), 3)' Handle des Icons Ordner
ImageList_AddIcon(Imagelist&,HIcon&)
Let Hicon&=ExtractIcon(Executehandle&, addr(Module$), 0)' Handle des Icons Datei
ImageList_AddIcon(Imagelist&,HIcon&)
 
Proc DateizugriffTest
  Parameters Dateiname$, ZugriffsFlags&
  Declare TokenHandle&, RetValue&, SecDec#, needed&, needed2&
  Declare GENERIC_MAPPING#, Priv_SET#, PSET_LENGTH&
  Declare GrantedAccess&, Erlaubt&
  If 64Bit& =1
    IF instr(Upper$($SYSPATH), Upper$(Dateiname$)) = 1
      Statustext$ = "Auf einem 64Bit System können keine Tests im SYSTEM32 Ordner durchgeführt werden!"
    else
      Statustext$ = "64Bit System!"
    endif
  endif
  sendmessage(Statusbar&, $401, 0, addr(Statustext$))
  sendmessage(Statusbar&, $410, 0, addr(Statustext$))
  DIM SecDec#, 1
  Clear needed&, SecDec#
  GetFileSecurity(addr(Dateiname$), $4 | $2 | $1, SecDec#, 1, addr(needed&))
  If needed& <= 0
    RetValue& = -1
  else
    Dispose SecDec#
    DIM SecDec#, needed&
    If GetFileSecurity(addr(Dateiname$), $4 | $2 | $1, SecDec#, needed&, addr(needed2&)) = 0
      RetValue& = -1
    else
      OpenThreadToken(GetCurrentThread(), $8, 0, addr(TokenHandle&))
      DIM GENERIC_MAPPING#, 16
      Long GENERIC_MAPPING#, 0 = $120089
      Long GENERIC_MAPPING#, 4 = $120116
      Long GENERIC_MAPPING#, 8 = $1200A0
      Long GENERIC_MAPPING#, 12 = $1F01FF
      DIM Priv_SET#, 12000
      PSET_LENGTH& = 12000
      If AccessCheck(SecDec#, TokenHandle&, ZugriffsFlags&, GENERIC_MAPPING#, Priv_SET#, addr(PSET_LENGTH&), addr(GrantedAccess&), Addr(Erlaubt&)) = 0
         RetValue& = -1
      else
         RetValue& = GrantedAccess&
      endif
      Dispose Priv_SET#
      Dispose GENERIC_MAPPING#
    endif
  endif
  Dispose SecDec#
  Return RetValue&
endproc
 
Proc Positioner
  Parameters LVH1&, LVHX&, LVHY&, LVHMB&, LVHMH&, SPMB1&
  IF (Hauptfensterbreite&<>WIDTH(%HWND)) or (Hauptfensterhöhe&<>HEIGHT(%HWND))
    Hauptfensterbreite&=WIDTH(%HWND)
    Hauptfensterhöhe&=HEIGHT(%HWND)
    SetWindowPos Statusbar& = 0, 0 - 0, 0; 0
    SetWindowPos(LVH1&, 0, LVHX&, LVHY&, (Hauptfensterbreite& - LVHMB&), (Hauptfensterhöhe& - LVHMH&), $14)
    Sendmessage(LVH1&, $101E, 0, (Hauptfensterbreite& - SPMB1&))
  endif
endproc
 
Proc Addzeile_To_ListView
   Parameters Lvhndl&, Index&, spalte&, Text$, Image&
   Dim Zeile#,LVITEM
   Clear Zeile#
   IF Image&=0
    Zeile#.IMASK&=$0001
    Zeile#.IIMAGE&=0
   else
    Zeile#.IMASK&=$000B
    Zeile#.IIMAGE&=IMAGE&
   endif
   Zeile#.ITEM&=Index&
   Zeile#.ITEXT&=Addr(Text$)
   Zeile#.ITEXTMAX&=Len(Text$)
   Zeile#.ISUBITEM&=spalte&
   Zeile#.StateMask&=0
   Zeile#.State&=0
   Sendmessage(Lvhndl&,$1007,0,Zeile#)
   Sendmessage(Lvhndl&,$102E,Index&,Zeile#)
   Dispose Zeile#
Endproc
 
Proc CreateListView
   Parameters Fenster_Handle&, x1&, y1&, x2&, y2&, Zeilenbreite1&, Zeilenbreite2&, Headertext$, Headertext2$, H_Color&, T_Color&
   Declare Listview_Handle&, Spaltentext$, PROC_PRIV_ZÄHLER%, State_Imagelist&, ICO_STRING$
   Dim LVC#,LVCOLUMN
   Listview_Handle& = Control("SysListView32","PrivListview", $54018001+$4, x1&, y1&, x2&, y2&, Fenster_Handle&, $0100, %Hinstance, $200)
   sendmessage(Listview_Handle&,$1036,0,$431+2)
   sendmessage(Listview_Handle&, $1003,1,Imagelist&)
   sendmessage(Listview_Handle&, $1001, 0, H_COLOR&)
   sendmessage(Listview_Handle&, $1000+38, 0, H_COLOR&)
   sendmessage(Listview_Handle&, $1000+36, 0, T_COLOR&)
   LET Spaltentext$ = Headertext$
   LVC#.TEXT& = ADDR(Spaltentext$)
   LVC#.MASK& = $0001 + $0002 + $0004 + $0008
   LVC#.FMT& = 0
   LVC#.CX& = Zeilenbreite1&
   LVC#.Subitem& = 0
   LVC#.Textlänge& = LEN(Spaltentext$)
   sendmessage(Listview_Handle&, $1000+27, 1, LVC#)
   LET Spaltentext$ = Headertext2$
   LVC#.TEXT& = ADDR(Spaltentext$)
   LVC#.Textlänge& = LEN(Spaltentext$)
   LVC#.CX& = Zeilenbreite2&
   sendmessage(Listview_Handle&,$1000+27, 2, LVC#)
   Dispose LVC#
   Return Listview_Handle&
Endproc
 
IF Val($WINVER) < 5
   Messagebox("Hier will ich nicht!!!", "Falsches Betriebsystem!", 16)
   end
endif
 
MODULE$="Kernel32.DLL"
Funktion$="IsWow64Process"
MHANDLE& = GetModuleHandle(ADDR(Module$))
IF GetProcAddress(MHANDLE&,ADDR(FUNKTION$))<>0
   External("Kernel32.dll", "IsWow64Process", GetCurrentProcess(), Addr(64Bit&))
endif
 
WindowTitle "Rechte auf Ordner und Dateien testen von AHT"
WindowStyle 31
Window 0, 0 - 640, 440
 
Ordner& = Create("Button", %HWND, "Ordner wählen...", 20, 20, 150, 30)
Datei& = Create("Button", %HWND, "Datei wählen...", 200, 20, 150, 30)
Schalter& = Control("Button", "", $40000000 + $10000000 + $400000 + 3 + $1000 + $10000, 380, 20, 200, 30, %HWND, 2112, %HINSTANCE)
Edit& = Create("Edit", Schalter&, "$120116", 5, 2, 120, 20)
Sendmessage(Edit&, $CF, 1, 0)
Create("Tooltip", %HWND, Schalter&, "Zu testende spezifische Zugriffsflags...")
LV1_Handle& = CreateListView(%HWND, 20, 70, (Width(%HWND) - 50), (Height(%HWND) - 120), (Width(%HWND) - 50) - 150 - 5, 150, "Dateiname / Ornername", "Reichen die Rechte?", @RGB(250, 250, 220), @RGB(0, 0, 255))
Statusbar& = CreateStatusWindow($50000920, ADDR(Statustext$), %HWND, 1000)
If 64Bit& =1
   Statustext$ = "64Bit System!"
   'Statustext$ = "Um aus dem Ordner '"+ $Syspath + "' Dateien und Ordner zu testen, per Hand in " + $Winpath + "\" + "SYSNATIV' wechseln!"
else
   Statustext$ = "32Bit System!"
endif
sendmessage(Statusbar&, $401, 0, addr(Statustext$))
sendmessage(Statusbar&, $410, 0, addr(Statustext$))
ImpersonateSelf(3)
While 1
   Waitinput
   Positioner(LV1_Handle&, 20, 70, 50, 120, (50 + 150 + 5))
   IF ButtonClicked(Ordner&)
      SetMenuitem 0
      OrdnerName$ = ChooseDir$("Bitte Ordner wählen, der überprüft werden soll:")
      IF Ordnername$ <> ""
        REZu& = DateizugriffTest(OrdnerName$, val(Gettext$(edit&)))
        Addzeile_To_ListView(LV1_Handle&, 0, 0, OrdnerName$, 0)
        If REZu& = 0
          Addzeile_To_ListView(LV1_Handle&, 0, 1, "Nein ( " + Gettext$(edit&) +" )", 0)
        elseif REZu& = -1
          Addzeile_To_ListView(LV1_Handle&, 0, 1, "Nicht ermittelbar!", 0)
        else
          Addzeile_To_ListView(LV1_Handle&, 0, 1, "Ja ( $" + Hex$(REZu&) + " )", 0)
        endif
      endif
   endif
   IF ButtonClicked(Datei&)
      SetMenuitem 0
      DateiName$ = LoadFile$("Bitte Datei wählen, die überprüft werden soll:", "*")
      IF DateiName$ <> ""
        REZu& = DateizugriffTest(DateiName$, val(Gettext$(edit&)))
        Addzeile_To_ListView(LV1_Handle&, 0, 0, DateiName$, 1)
        If REZu& = 0
          Addzeile_To_ListView(LV1_Handle&, 0, 1, "Nein ( " + Gettext$(edit&) +" )", 0)
        elseif REZu& = -1
          Addzeile_To_ListView(LV1_Handle&, 0, 1, "Nicht ermittelbar!", 0)
        else
          Addzeile_To_ListView(LV1_Handle&, 0, 1, "Ja ( $" + Hex$(REZu&) + " )", 0)
        endif
      endif
   endif
   If GetCheck(Schalter&)
     Sendmessage(Edit&, $CF, 0, 0)
     EnableWindow Ordner&, 0
     EnableWindow Datei&, 0
   else
     Sendmessage(Edit&, $CF, 1, 0)
     Settext Edit&, "$" + Hex$(val(Gettext$(edit&)))
     EnableWindow Ordner&, 1
     EnableWindow Datei&, 1
   endif
wend

Wichtig ist, dass man hier keine PrimaryToken für den Test nimmt, sondern einen ImpersonationToken (deswegen wird der ThreadToken genommen, den man vorher zuweist). In älteren Dokumentationen ist das nicht ausreichend erwähnt.
Ich habe das für eine andere Sprache gebraucht und mich hat interessiert, wie sich das in Profan umsetzen lässt.

[p. specht]

@AHT: Wow!!! Jetzt komme ICH mir überflüssig vor... sowas von Null Durchblick - es funktioniert aber trotzdem

Wisst ihr eigentlich, wem wir das GOTO verdanken? Der "Kybernetiker" der RAND-Corporation Harlan Herrick hat es in eine der allersten, mit IBM-704 Computern ausgelieferten Fortran-Versionen bei seinem Teamkollegen von IBM und späteren Chef John W. Backus (Richtig: Der mit den Backus-Naur Notation) durchgesetzt: Am 20. September 1954 wurde GOTO das erstemal ausgeliefert (Q: 12 Wiki- und Firmenseiten). Herrick verdanken wir aber z.B. auch DO ... CONTINUE, das Fortran-Äquivalent zu DO .. UNTIL.

Gruss

P.S.: Haltet Euch fest: Im gleichen Jahr 1954 gründete ein gewisser Jack Tramiel eine kleine Firma namens "COMMODORE Portable Typewriter and Repair Service". Bis zum PET 2001 ("Blechkasten") dauerte es allerdings in den USA noch bis Anfang 1977, und der Commodore-64 ("Brotkasten") wurde erst im Winter 1981 vorgestellt, ein knappes halbes Jahr nach Präsentation des ersten "PC" durch IBM.

[AHT]

Zum Thema "worauf man sich in Windows nicht verlassen kann..." mal folgender Link zu einem Experimentalprogramm von mir. Den Code gebe ich hier natürlich dafür nicht:
ModRenamer

Einfach mal den Taschenrechner starten und damit testen...
Was sagt da zum Beispiel der ProcessExplorer???

[AHT]

Hier mal ein Bild vom ProcessExplorer, nachdem ich den notepad Process mit dem Ding bearbeitet habe. Dem notepad Process fehlt hier scheinbar die ntdll.dll und hat er hat wohl stattdessen eine Bitmap geladen...