Schreibvorgänge in Datenbanken auf der Festplatte dauern etwas länger als das Schreiben im RAM. Um Datenbankprogramme schneller wirken zu lassen, hat Borland in der BDE einen Cache-Puffer vorgeschaltet. Zu speichernde Datensätze landen zunächst recht schnell in diesem Puffer, später werden dann unbemerkt im Hintergund die Sätze in aller Ruhe auf Platte geschrieben.
Dies kann nun aber fatale Folgen haben, gerade wenn ein solches Programm im Netzwerk betrieben wird. Denn obwohl an einem Arbeitsplatz der Vorgang eigentlich abgeschlossen ist, ist die Datenbank für andere Benutzer zunächst noch gar nicht aktualisiert. Arbeiten auch diese an dem selben Datenbestand sind Indexfehler oder Datenverluste kaum zu verhindern.
Wir empfehlen deshalb, bei allen gleichzeitig benutzten Tabellen vom Typ TTable per Objektinspektor die Methode AfterPost zu modifizieren:

Procedure Shutdown;
begin
  ExitWindowsEx(EWX_SHUTDOWN,0);
end;

Procedure Restart;
begin
   ExitWindowsEx(EWX_REBOOT,0);
end;

Procedure LogOff;
begin
  ExitWindows(0,0);
end;
  

uses registry;

function WindowsUser: String; // im Netzwerk, Win2000, XP
var u: array[0..127] of char;
    s: DWord;
begin
  sz:=Sizeof(u);
  GetUSerName(u,s);
  result:=u;
end;

function WindowsUser: String; // unter Windows 9x
var reg: TRegIniFile;
begin
  reg:=TRegIniFile.create('SOFTWARE\MICROSOFT\MS SETUP (ACME)\');
  result:=reg.ReadString('USER INFO','DefName', 'unbek. Benutzer');
  reg.free;
end;

z.B. als Funktion...

function WinVersion: string;
var w: word;
begin
  w:=(LOBYTE(LOWORD(GetVersion))*100)
     +HIBYTE(LOWORD(GetVersion));
  case w of
  310: result:='Windows 3.1';
  395: result:='Windows 95';
  410: result:='Windows 98';
  490: result:='Windows Millenium';
  500: result:='Windows 2000';
  501: result:='Windows XP';
  end;
end;

Zunächst besorgt man sich ein XP-Manifest als Ressourcen-Datei, z.B.
WinXp.res als Download

Am einfachsten bindet man dann die XP-Manifest-Datei in das eigene Programm mit ein. Dies geschieht durch einfache Angabe als Ressourcen-Datei:

....
{$R *.dfm}
($R WinXP.res}          <-- dieses Zeile in Programm einbinden
...

Nun muß man nur dafür Sorge tragen, dass die Datei WinXP.res immer dem Programm im Programmverzeichnis beiliegt. So ist das fertige Programm unter allen Windows-Versionen lauffähig und sieht unter XP aus wie XP, unter Win-2000 entsprechend wie Win-2000.

Allerdings taucht hierbei ein Fehler in der Delphi-VCL bei allen Programmen auf, die die Komponente TListView verwenden. Beschreibung zur Behebung

Die Realisierung ist sehr einfach, wird jedoch in der Delphi-Dokumentation nicht erwähnt:

z.B.:   Stringvar := PopupMenu1.PopupComponent.Name;

oder if PopupMenu1.PopupComponent=Komponente then...

uses Printers;

function Schriftartvorhanden(fontname: String): boolean;
var i: integer;
begin
  for i:=0 to Printer.fonts.count-1 do
  if Printer.fonts[i]=fontname then
  begin
    result:=true; EXIT;
  end;
  result:=false;
end;