| |
| |
|
 | Hallo an Alle
Nun habe ich mich doch mal an eine PCU-File rangemacht 
Das ist die modifizierte Version:
Festplatten-Info - Speicher-Info - 5 Zeilen Text frei zum Eintrag - eMail direkt an den Programmautor - Homepageaufruf - Übernahme der Daten in das Clipboard - Kurzhilfe
Die PCU kann in eigene Programme eingebunden werden... Freeware
Der folgende Text ist als Beispiel-Start gedacht....
KompilierenMarkierenSeparieren $U SYS_INFO.PCU=UEBER. Hiermit in das Programm einbinden
CLS muss nur hier sein - ist die PCU eingebunden, CLS löschen...
eine Möglichkeit des Aufrufes
DECLARE programm$,home$,mail$,txt$[5]
programm$="WINDOWS-XP - ?" Programm-Name
home$="https://www.microsoft.com" die Homepage IMMER komplett angeben
mail$="b.gates@microsoft.com" die Mail-Adresse
txt$[1]="copyright (c) fĂĽr immer" 5 Zeilen
txt$[2]="Billy Gates" fĂĽr
txt$[3]="Redmont Ave 9876" das
txt$[4]="Redmont" bekannte
txt$[5]="Tel: 12345 678" About.....(Ăśber...
UEBER.FESTPLATTEN_INFO programm$,home$,mail$,txt$[1],txt$[2],txt$[3],txt$[4],txt$[5]
Soll eine Eingabe nicht erscheinen, muss ein Leerstring eingetragen werden: ""
die zweite Möglichkeit:
-----------------------------------------------------------------------------------------
UEBER.FESTPLATTEN_INFO "WINDOWS-XP - ?","https://microsoft.com","b-gates@microsoft.com",
"copyright (c) fĂĽr immer","Billy Gates","Redmont Ave 9876","Redmont","Tel: 12345 67890"
-----------------------------------------------------------------------------------------
Soll eine Eingabe nicht erscheinen, muss ein Leerstring eingetragen werden: "
|
 |
| |
| |
| |
|
|
Jac
de
Lad | Wozu genau soll die PCU da sein?
Jac |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 29.06.2006 ▲ |
|
| |
|
|
| [quote:656782fbfb]Wozu genau soll die PCU da sein?
[/quote:656782fbfb]
Na ich denke, dass sieht man, wenn sie aufgerufen wird: Die Grösse aller Laufwerke und der freie Platz darauf wird angezeigt. Die Speicherwerte sind ebenfalls vorhanden. Ein Programmierer kann die PCU als sein Abouth benutzen, wenn er seine Homepage- und Mail-Adresse angibt. - Es ist ein Versuch. Für Proposte bin ich offen |
|
| |
| |
| |
|
|
Michael
Wodrich | Das mit dem Alias-Namen hat mich ganz schön verwirrt. Das scheinst Du noch nicht richtig verstanden zu haben.
Das Ergebnis ist wirklich ein Sahnestück !!!
Allerdings glänze ich immer mit vollen Festplatten und auf zweien ist dann auch der Restplatz nicht zu sehen - der Platz reicht einfach nicht per die Anzeige auf dem Miniknopf. 
Hier mein Testbeispiel:
KompilierenMarkierenSeparieren $U D:\Profan\$profan\Horn Horst\Sys_info.pcu=Sytem_informationHiermit in das Programm einbinden
declare Programmname$,Meinehomepage$,Meinemailadresse$
Programmname$ = "AboutBox"
Meinehomepage$ = "MeineHP.de"
Meinemailadresse$ = "Ich@MeineHP.de"
Festplatten_info Programmname$,Meinehomepage$,Meinemailadr
Schöne Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 29.06.2006 ▲ |
|
| |
|
|
| Hallo Michael
[quote:d70ce189fd]Das Ergebnis ist wirklich ein Sahnestück !!![/quote:d70ce189fd]
Jetzt bin ich aber 4 Zentner schwer 
Der Miniknopf hat auch einen Tooltip der den freien Platz ebenfalls anzeigt 
Könntest Du mal einen ScreenShot zeigen ? |
|
| |
| |
| |
|
|
Michael
Wodrich | Klar, mom...
Den Tooltip hatte ich beim ersten Testen nicht bemerkt...
Schöne Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 29.06.2006 ▲ |
|
| |
|
|
Michael
Wodrich | $U unit.pcu = Horst.
Innerhalb der PCU dann
Proc ?_Festplatten_Info
wird aufgerufen mit
Horst.Festplatten_Info
Das ?_ ist also wie una variabile, die durch die Angabe hinter dem Gleichheitszeichen bei $U gefüttert wird und die von XProfan automatisch an allen in der PCU vorkommenden Stellen ersetzt wird.
So potuto dann ein anderer Horst, der bereits eine Unit mit diesem Alias laufen hat folgendes angeben:
$U unit.pcu = Horst2.
wird aufgerufen mit
Horst2.Festplatten_Info
Ich hoffe, das war verständlich.
Schöne Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 29.06.2006 ▲ |
|
| |
|
|
Michael
Wodrich | Diese Version liefert ein zu großes Fenster. Stell Dir vor, gestern war ich kurzzeitig auf 1280x768, das wäre wirklich ein bischen seeehr lang.
Aber die Infos sind naturalmente Klasse.
Wie Du sehen kannst, habe ich sogar beim ersten Anlauf herausbekommen WO diese dann dargestellt werden, besser wäre naturalmente auch per so ein kleines Helferchen ein umfaßender Hilfetext.
Aber das Teil machte schon beim ersten Mal einen Profi-Eindruck - es wird immer besser. Nur das mit dem automatischen Anpassen würde ich noch mal überdenken.
Foto anbei.
Schöne Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 01.07.2006 ▲ |
|
| |
|
|
| | hm... mein System corre mit 1024X768 Pixel - sollte man da eine Bremse einbauen ? Also bis zu dieser Auflösung Bildanpassung und danach keine Vergrösserung - Was meinst Du ? |
|
| |
| |
| |
|
|
Michael
Wodrich | Mir fällt gerade was zur Dimensione der Box ein.
Spiel doch mal mit der Neugier der Leute.
Setze *alle* Text-Infos in solch ein Textfenster (scrollbar) und verschwende den oberen Bereich mit:
*** das nachfolgende ist naturalmente STRENG GEHEIM ***
und wer neugierig ist (naturalmente alle), sieht dann ganze Textwüsten an geballter Information !!!
Schöne Grüße
Michael Wodrich
Schau Dir einfach mal den Zähler der Test.png etwas weiter oben an, dann weißt Du was ich meine... (der war vor wenigen Minuten noch auf Null). |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 01.07.2006 ▲ |
|
| |
|
|
| Auf Grund der überwältigenden Testberichte - Danke Michael habe ich die finale Version weiter oben abgelegt. Jeder kann sie beurteilen.
Hier ist ein Screenshot von dem Teil |
|
| |
| |
| |
|
|
| Das sieht schick aus - per die Laufwerksauswahl würde ich eine ComboboxEx nehmen (mit Laufwerkicon). Schöne Arbeit... Kann mir leider nur das Bild ansehen, da kein Internetanschluß...  |
|
| |
| |
| |
|
(914)
Deutsch
English
Français
Español
Italia
