Hallo, kennt ihr günstige CPUs bzw. Mainboards für einen Home Server? Am besten auch mit einem geringen Stromverbrauch.

Habe gesehen das Xeon CPUs teilweise für ein paar Euros gebraucht erhältlich sind. Vielleicht könnt ihr ja auch einen Sockel empfehlen damit ich eine grobe Richtung habe.

Cool wäre auch wenn man eine zweite CPU drauf stecken könnte.

Vielen Dank schonmal :)

Ich schreibe gerade an einer art "DesktopCleaner"... das ganze soll erstmal nur auf meinem System funktionieren.

Option Explicit 
Dim objFSO, objFolder, objSubFld, f1, f2, colFiles, pathname, i 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder("D:\") 
ChkSubFld objFolder 

Private Sub ChkSubFld(StartFolder) 
ChkFiles StartFolder 
Set objSubFld = StartFolder
For Each f2 in objSubFld 
ChkSubFld f2 
Next 
End Sub 

Private Sub ChkFiles(Start) 
Set colFiles = Start.Files 
For Each f1 in colFiles 
pathname = objFSO.GetAbsolutePathName(f1)
MsgBox pathname
 If Not (pathname = "D:\4.m3u") Or (pathname = "D:\CyberGhost 6.lnk") Or (pathname = "D:\desktop.ini") Or (pathname = "D:\Electrum-LTC.lnk") Or (pathname = "D:\Electrum.lnk") Or (pathname = "D:\Lazarus.lnk") Or (pathname = "D:\Start Tor Browser.lnk") Or (pathname = "D:\TeamSpeak 3 Client.lnk") Then
objFSO.MoveFile pathname, "D:\Alles Desktop\DesktopCleaner"
End If
Next 
End Sub 

objFSO.MoveFile "E:\VBS\DesktopCleaner\data\TranscodedWallpaper", "C:\Users\Ericmc\AppData\Roaming\Microsoft\Windows\Themesr"
MsgBox "Fertig!" 

Also der Ablauf soll sein: Lösche alle Dateien auf dem Desktop (D:), ändere das Desktop Hintergrundbild. Der Fehler ist wohl beim ersten objFSO.MoveFile .... ich schaffe es aber nicht ihn zu beheben. Es kommt immer die aussage die Dateien würden bereits existieren?? Obwohl der Ordner DesktopCleaner leer ist. Danke für eure Hilfe.

Ich bin noch ein absouluter Anfänger in Delphi/lazarus... Ich wollte nun in meinem Programm direkt beim starten

var x:integer;

erstellen... das habe ich hinbekommen indem ich sie an dieser stelle im Quellcode eingefügt habe

{$R *.lfm}
 var x:integer;

aber wenn ich nun darunter

{$R *.lfm}
 var x:integer;
x:=random(100);

schreibe, funktioniert das ganze nicht mehr..... wenn ich das gleiche in eine "Klick funktion" oder wie man das nennt packe, klappt es. An welche stelle im Quellcode kann ich denn jetzt "Anweisungen" wie if etc. reinschreiben das sie direkt beim starten das programmes ausgeführt werden und nicht erst wenn man draufklickt etc. ???

Ich finde Nirgendswo in den Einstellunegn von Open Office "Päsentation starten".... Wie mach ich das (Libre Office Draw)