The project

 https://wiki.freepascal.org/MouseAndKeyInput

https://forum.lazarus.freepascal.org/index.php?topic=48835.0

https://www.getlazarus.org/forums/viewtopic.php?t=51

https://www.howtogeek.com/812717/how-to-circle-invalid-data-in-microsoft-excel/

PolyBar - https://www.youtube.com/watch?v=tOBDUBEMAKM&t=888s

NeoFetch - Self Explanatory, Just find the config file

 - https://www.youtube.com/watch?v=PLBm0C5Gv58 and

https://www.youtube.com/watch?v=7lLa4IoVdCo&t=22s

https://www.howtogeek.com/814829/how-to-fix-the-most-annoying-things-about-windows-11/

https://www.howtogeek.com/howto/3061/burn-any-video-file-type-to-play-on-a-dvd-player/

How to Fix rc=1908 Error

xbps-reconfigure -fx linux

/usr/share/xbps.d

sudo SSL_NO_VERIFY_PEER=true xbps-install -S xbps

sudo nano /etc/resolv.conf

sudo xbps-install -Syu

https://forum.odroid.com/viewtopic.php?t=37873

https://linuxnatives.net/2012/migrating-from-virtualbox-to-virt-manager

https://youtu.be/2Q68TzkQUD8

https://youtu.be/sYz0mjyp29A

https://github.com/furryfixer/vkinfo/blob/main/vkinfo

https://portableapps.com/apps/office/cherrytree-portable

Windows 10+11 Sound Keyboard Application

THE BEST APPLICATIONS FROM ME

1. unit Main;
2.  
3. {$mode objfpc}{$H+}
4.  
5. interface
6.  
7. uses
8.   Classes,
9.   SysUtils,
10.   Forms,
11.   Controls,
12.   Graphics,
13.   Dialogs,
14.   ExtCtrls,
15.   StdCtrls,
16.   FileUtil,
17.   codebot.Networking.Ftp,
18.   codebot.System;
19.  
20. type
21.  
22.   { TForm1 }
23.  
24.   TForm1 = class(TForm)
25.     Button1: TButton;
26.     Memo1: TMemo;
27.     Panel1: TPanel;
28.     procedure Button1Click(Sender: TObject);
29.     procedure FormCreate(Sender: TObject);
30.   private
31.     FTPClient: TFtpClient;
32.     procedure Progress(Sender: TObject; const Size, Transmitted: LargeWord);
33.   public
34.  
35.   end;
36.  
37. var
38.   Form1: TForm1;
39.  
40. implementation
41.  
42. {$R *.lfm}
43.  
44. { TForm1 }
45.  
46. procedure TForm1.Button1Click(Sender: TObject);
47. var
48.   FileList: TStringList;
49.   i: Integer;
50. begin
51.   FileList := TStringList.Create;
52.   FindAllFiles(FileList,
53.     '/location/on/your/disk',
54.     '*', False);
55.   Memo1.Lines.Clear;
56.   Memo1.Lines.Add(FileList.Text);
57.  
58.   FTPClient.Connect;
59.   FTPClient.MakeDir('StorageFolder');
60.   FTPClient.ChangeDir('StorageFolder');
61.  
62.   for i := 0 to FileList.Count -1 do begin
63.     Memo1.Lines.Add('Uploading file ' + ExtractFileName(FileList[i]));
64.     FTPClient.FilePut(FileList[i], ExtractFileName(FileList[i]));
65.   end;
66.  
67.   FTPClient.Disconnect;
68. end;
69.  
70. procedure TForm1.FormCreate(Sender: TObject);
71. begin
72.   FTPClient := TFTPClient.Create;
73.   FTPClient.Host := 'hostname.domain.tld';
74.   FTPClient.UserName := 'username';
75.   FTPClient.Password := 'password';
76.   FTPClient.OnProgress:=@Progress;
77. end;
78.  
79. procedure TForm1.Progress(Sender: TObject; const Size, Transmitted: LargeWord);
80. begin
81.   Memo1.Lines.Add('Progress: ' + IntToStr(Transmitted) + '/' + IntToStr(Size));
82. end;
83.  
84. end.
85.                  
86.