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://github.com/furryfixer/vkinfo/blob/main/vkinfo
https://portableapps.com/apps/office/cherrytree-portable
Windows 10+11 Sound Keyboard Application
- unit Main;
- {$mode objfpc}{$H+}
- interface
- uses
- Classes,
- SysUtils,
- Forms,
- Controls,
- Graphics,
- Dialogs,
- ExtCtrls,
- StdCtrls,
- FileUtil,
- codebot.Networking.Ftp,
- codebot.System;
- type
- { TForm1 }
- TForm1 = class(TForm)
- Button1: TButton;
- Memo1: TMemo;
- Panel1: TPanel;
- procedure Button1Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- private
- FTPClient: TFtpClient;
- procedure Progress(Sender: TObject; const Size, Transmitted: LargeWord);
- public
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.lfm}
- { TForm1 }
- procedure TForm1.Button1Click(Sender: TObject);
- var
- FileList: TStringList;
- i: Integer;
- begin
- FileList := TStringList.Create;
- FindAllFiles(FileList,
- '/location/on/your/disk',
- '*', False);
- Memo1.Lines.Clear;
- Memo1.Lines.Add(FileList.Text);
- FTPClient.Connect;
- FTPClient.MakeDir('StorageFolder');
- FTPClient.ChangeDir('StorageFolder');
- for i := 0 to FileList.Count -1 do begin
- Memo1.Lines.Add('Uploading file ' + ExtractFileName(FileList[i]));
- FTPClient.FilePut(FileList[i], ExtractFileName(FileList[i]));
- end;
- FTPClient.Disconnect;
- end;
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- FTPClient := TFTPClient.Create;
- FTPClient.Host := 'hostname.domain.tld';
- FTPClient.UserName := 'username';
- FTPClient.Password := 'password';
- FTPClient.OnProgress:=@Progress;
- end;
- procedure TForm1.Progress(Sender: TObject; const Size, Transmitted: LargeWord);
- begin
- Memo1.Lines.Add('Progress: ' + IntToStr(Transmitted) + '/' + IntToStr(Size));
- end;
- end.