Die Seiten "gewusst wie" geben Implemenmtierungsbeispiele für
verschiedene Aufgaben in unterschiedlichen Technoligien. Die 
Beispiele sind zumeist wenig dokumentiert. Es soll hier kurz und
knapp die (eine) Umsetzung des Problems nahegelegt werden. Nähere 
Informationen zu den verwendeten Codes finden sich im Netz :)

Delphi Codebook

1--> DATEI KOPIEREN

2--> FORMULAR DYNAMISCH ERSTELLEN

3--> FORMULAR DYNAMISCH FREIGEBEN

4--> FORMULARE ZUR LAUFZEIT ERZEUGEN / ZERSTÖREN

5--> TINIFILE: lesen und schreiben

6--> Label als Hyperlink

7--> MEHRFACHEN PROGRAMMSTART VERHINDERN

8--> PROGRAMMVERZEICHNIS ERMITTELN

9--> SYSTEMINFO, Speicherinformationen, Ram

10--> TEXTDATEI in ein MEMO laden

11--> TYPPRÜFUNG INTEGER

12--> UHR ZEICHNEN

Procedure Datei_kopieren(Quelldatei:string; zieldatei:string);  // Pfad + Name
var q_datei, z_datei,q_dir,z_dir : string;
    Source, Target: TFileStream;
    fehler : boolean;
begin
fehler := true;
q_datei := quelldatei;
z_datei := zieldatei;
q_dir := extractfilepath(Quelldatei);
delete(q_dir,length(q_dir), 1);
z_dir := extractfilepath(Zieldatei);
delete(z_dir,length(z_dir), 1);

        try
            Source := TFilestream.Create(q_datei, fmOpenRead);
            Target := TFileStream.Create(z_datei, fmCreate);
            try
                Target.CopyFrom(source, 0);
                fehler := false;
            finally
                Target.Free
            end;
        finally
             Source.Free
        end;
  if fehler then MessageDlg('Datei nicht erfolgreich hinzugefügt. 
  (Quelldatei : '+q_datei + ' | Zieldatei : '+z_datei,mtError,[mbOK],0)
end;

if PagesDlg = nil then
	BEGIN
	 Application.CreateForm(TPagesDlg, PagesDlg);
	 PagesDlg.PageControl1.Activepageindex := 1;
	 PagesDlg.Show;
	END;

if pw_form <> NIL then
  begin
	pw_form.release;
	pw_form := nil;
  end;

procedure Tform_hintergrund.ToolButton2Click(Sender: TObject);
Var     Form_Einstellungen : TForm_Einstellungen;
  begin
      Form_Einstellungen := TForm_Einstellungen(self);
  try
      Form_Einstellungen.showmodal;
      Form_Einstellungen.BringToFront;
  finally
      Form_Einstellungen.free;

  end;

end.

Die Parameter myInt, myString und myBool müssen vorher initialisiert werden

Der Aufruf der read-Methoden folgt dem Schema
Methode(Section,Name des Parameters,Detault Wert)


Der Aufruf der write-Methoden folgt dem Schema
Methode(Section,Name des Parameters, zu schreibender Wert


im Inifile sieht das dann zB so aus:

[configuration]
Variablenname=Variablenwert
Variablenname=Variablenwert
Variablenname=Variablenwert
...


procedure get_config;
Var configfile : TIniFile;
begin
 try
 // lesen:
      configfile := TInifile.create([Pfad + Dateiname]);
      myInt := configfile.readinteger('configuration','Variablenname',0);
      myString := configfile.readstring('configuration','Variablenname','leer');
      myBool := configfile.readbool('configuration','Variablenname',false);
 // schreiben
 
	  configfile.writeinteger('configuration','Variablenname',myInt);
      configfile.writestring('configuration','Variablenname',myString);
      configfile.writebool('configuration','Variablenname',myBool);
 finally
      configfile.free;
 end;


end;

procedure TFormSilentAlert.Label1Click(Sender: TObject);
begin
ShellExecute(Application.Handle,'open',PCHar('http://www.schlumsch.de')
			,nil,nil,sw_ShowNormal);
end;

Folgende Unit einbinden:

unit only_one;

interface

implementation
uses forms, windows;
var mutex : THandle;
    h     : HWnd;


initialization
  mutex := CreateMutex(nil,true,'MyXYZMutex');
  if getLastError = ERROR_ALREADY_EXISTS then begin
     h := 0;
     repeat
       h := FindWindowEx(0,h,'TApplication',PChar(Application.Title))
     until h <> application.handle;
     if h <> 0 then begin
        Windows.ShowWindow(h, SW_ShowNormal);
        windows.SetForegroundWindow(h);
     end;
     halt;
  end;
finalization
  ReleaseMutex(mutex);
end.

  Prog_Dir := extractfilepath(paramstr(0));
  delete(Prog_Dir,length(Prog_Dir), 1);

procedure sysinfo_ram;
Var memory : TMemoryStatus;
begin
    memory.dwLength := sizeof(memory);
    GlobalMemoryStatus(memory);
    with Form_sysmon.stringgrid_ram do
    begin
    colwidths[0] := clientwidth div 2;
    colwidths[1] := clientwidth div 2;
    rowheights[0] := clientheight div 3;
    rowheights[1] := clientheight div 3;
    rowheights[2] := clientheight div 3;
    cells[0,0] := 'RAM free';
    cells[1,0] := 'RAM total';
    cells[0,1] := inttostr(round(memory.dwAvailPhys /1024)) + 'kb';
    cells[1,1] := inttostr(round(memory.dwTotalPhys /1024)) + 'kb';
    cells[0,2] := inttostr(round(memory.dwAvailPhys /(1024*1024))) + 'mb';
    cells[1,2] := inttostr(round(memory.dwTotalPhys /(1024*1024))) + 'mb';
end;
end;

   try
   if not fileexists(fname) then exit;
   AssignFile(F, fname);
   Reset(F);
   while not EOF(F) do
   begin
     Readln(F, t);    { Erste Zeile aus der Datei lesen }
     Memo1.Lines.append(t);     { Zeile in das Memofeld einfügen }
   end;
      CloseFile(F);
   finally
   end;

function isInteger(value:string):boolean;
begin
Result := true;
try
   strtoint(value);
except
   Result := false
end;   

end;

Procedure TAlarmform.uhr_zeichnen;
// Uhr malen
var
  Datum: TDateTime;
  h,m,s,ms : word;
  i, x, y: integer;
begin
  with Image1 do begin
    Canvas.brush.Color := clbtnface;
    Canvas.Pen.Color := clblack;
    canvas.pen.Width := 1;
    Canvas.Font.Color:= clBlack;
    Canvas.TextOut((Image1.clientwidth div 2),0, '0');
    Canvas.TextOut((Image1.clientwidth-15),Image1.clientheight div 2, '15');
    Canvas.TextOut((Image1.clientwidth div 2),Image1.clientheight-15, '30');
    Canvas.TextOut(0,Image1.clientheight div 2, '45');
    i := strtoint(FormatDateTime('s',now));
    Datum := time;
    DecodeTime(Datum, H, M, S, MS);
    if (S=1) then
       begin
           Canvas.brush.Color := clbtnface;
           Canvas.Pen.Color := clbtnface;
           Canvas.rectangle(0, 0, Width, Height);
        end;
    Canvas.Pen.Color := clred;
    Canvas.MoveTo(Width div 2, Height div 2);
    x := trunc(cos(pi/180 * (i * 6 - 90)) * (Width div 2 - 15) + Width div 2);
    y := trunc(sin(pi/180 * (i * 6 - 90)) * (Height div 2 - 15) + Height div 2);
    Canvas.LineTo(X,Y);
  end;


End;