به دست آوردن کلیه برنامه های نصب شده در ویندوز:

Registry; uses

procedure TForm1.Button1Click(Sender: T);

const CLAVE =

"\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall";

reg : TRegistry;

Lista : TStringList;

Lista2 : TStringList;

i,n : integer;

{Creamos cosas temporales}

{Create temporal things}

reg := TRegistry.Create;

Lista := TStringList.Create;

Lista2 := TStringList.Create;

{Cargamos todas las subkeys}

{Load all the subkeys}

with Reg do

begin

RootKey := HKEY_LOCAL_MACHINE;

OpenKey(CLAVE,false);

GetKeyNames(Lista);

end;

{Cargamos todos los Nombres de valores}

{Load all the Value Names}

for i := 0 to Lista.Count -1 do

begin

reg.OpenKey(CLAVE + "\" +Lista.Strings[i],false);

reg.GetValueNames(Lista2);

{Mostraremos s?lo los que tengan "DisplayName"}

{We will show only if there is "DisplayName"}

n:=Lista2.IndexOf("DisplayName");

if (n <> -1) and (Lista2.IndexOf("UninstallString")<>-1) then

begin

{DisplayName+UnInstallString}

Memo1.Lines.Append ( reg.ReadString(Lista2.Strings[n])+"-"+

reg.ReadString(Lista2.Strings[Lista2.IndexOf("UninstallString")]) );

end;

end;

{Liberamos temporales}

{Free temporals}

Lista.Free;

Lista2.Free;

reg.CloseKey;

reg.Destroy;

end;

از این برنامه برای اجرا کردن یک برنامه تحت Dos و برگرداندن خروجی آن به فرم شما و نمایش آن در یک Memo است.

  procedure RunDosInMemo(Que:String;EnMemo:TMemo);
  const
     CUANTOBUFFER = 2000;
  var
    Seguridades         : TSecurityAttributes;
    PaLeer,PaEscribir   : THandle;
    start               : TStartUpInfo;
    ProcessInfo         : TProcessInformation;
    Buffer              : Pchar;
    BytesRead           : DWord;
    CuandoSale          : DWord;
  begin
    with Seguridades do
    begin
      nlength              := SizeOf(TSecurityAttributes);
      binherithandle       := true;
      lpsecuritydeor := nil;
    end;
    {Creamos el pipe...}
    if Createpipe (PaLeer, PaEscribir, @Seguridades, 0) then
    begin
      Buffer  := AllocMem(CUANTOBUFFER + 1);
      FillChar(Start,Sizeof(Start),#0);
      start.cb          := SizeOf(start);
      start.hStdOutput  := PaEscribir;
      start.hStdInput   := PaLeer;
      start.dwFlags     := STARTF_USESTDHANDLES +
                           STARTF_USESHOWWINDOW;
      start.wShowWindow := SW_HIDE;
 
      if CreateProcess(nil,
         PChar(Que),
         @Seguridades,
         @Seguridades,
         true,
         NORMAL_PRIORITY_CLASS,
         nil,
         nil,
         start,
         ProcessInfo)
      then
        begin
          {Espera a que termine la ejecucion}
          repeat
            CuandoSale := WaitForSingle( ProcessInfo.hProcess,100);
            Application.ProcessMessages;
          until (CuandoSale <> WAIT_TIMEOUT);
          {Leemos la Pipe}
          repeat
            BytesRead := 0;
            {Llenamos un troncho de la pipe, igual a nuestro buffer}
            ReadFile(PaLeer,Buffer[0],CUANTOBUFFER,BytesRead,nil);
            {La convertimos en una string terminada en cero}
            Buffer[BytesRead]:= #0;
            {Convertimos caracteres DOS a ANSI}
            OemToAnsi(Buffer,Buffer);
            EnMemo.Text := EnMemo.text + String(Buffer);
          until (BytesRead < CUANTOBUFFER);
        end;
      FreeMem(Buffer);
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
      CloseHandle(PaLeer);
      CloseHandle(PaEscribir);
    end;
  end;

به عنوان مثال:

  RunDosInMemo("chkdsk.exe c:\",Memo1);

برای اضافه کردن اسکرول بار به لیست باکس خود از این روش استفاده کنید..

ListBox1.Perform(LB_SETHORIZONTALEXTENT, 300, 0 );

یا از این روش

SendMessage( ListBox1.Handle, LB_SETHORIZONTALEXTENT, 300, 0 );

برای داشتن یک کامبو باکس با گزینه های که رنگ های گزینه ها با هم فرق می کند می توان از این روش استفاده کرد

 
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TComboBox) do
  begin
    {The Odd Items in Red, the others in black}
    {Los Items pares de color rojo}
    {Los impares en negro}
    if Odd(Index) then Canvas.Font.Color:=clRed
                  else Canvas.Font.Color:=clBlack;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left,Rect.Top,Items[Index]);
  end;
end;

Speed test