Jak zrobic aby po wylączeniu programu zapisywać pozycję p

Jak zrobic aby po wylączeniu programu zapisywać pozycję pasków <ort>"dokójących"<</ort>font color="red"></span>
odpowiedzi prosze pod emaila ****@wp.pl
lub tutaj</email>

To jest forum, odpowiada się na forum a nie na maila. Jak chcesz odpowiedzi na maila to się zarejestruj i zaznacz co trzeba pisząc posta.

odpowiedź znajdziesz czytając helpa na hasła
OnClose, TIniFile, TRegistryIniFile, OnCreate

var fs: TFileStream;
begin
  fs.WriteComponent(nazwa_komponentu);
end;

Kiedyś pisałem pewien program, kawałek z niego może się przydać.

Procedure SaveCoolBar(CoolBar:TCoolBar;Const Nazwa:String;Reg:TRegistry);
Var Stream:TMemoryStream;
    Buf:Array[0..MaxLength] Of Byte;
Begin
  Stream:=TMemoryStream.Create;
  Stream.WriteComponent(CoolBar);
  Stream.Position:=0;
  Stream.Read(Buf,Stream.Size);
  Reg.WriteBinaryData(Nazwa,Buf,Stream.Size);
  Stream.Free;
End;

Procedure LoadCoolBar(Const CoolBar:TCoolBar;Const Nazwa:String;Const Reg:TRegistry);
Var Stream:TMemoryStream;
    Buf:Array[0..MaxLength] Of Byte;
    Len:Integer;
Begin
  If Not Reg.ValueExists(Nazwa) Then Exit;
  Len:=Reg.ReadBinaryData(Nazwa,Buf,MaxLength);
  Stream:=TMemoryStream.Create;
  Stream.WriteBuffer(Buf,Len);
  Stream.Position:=0;
  Try
    Stream.ReadComponent(CoolBar);
  Finally
    Stream.Free;
  End;
End;

Procedure SaveComponent(Component:TComponent;NazwaPliku:String);
Var Stream:TFileStream;
Begin
  Stream:=TFileStream.Create(NazwaPliku,fmCreate);
  Stream.WriteComponent(Component);
  Stream.Free;
End;

Procedure LoadComponent(Component:TComponent;NazwaPliku:String);
Var Stream:TFileStream;
Begin
  Stream:=TFileStream.Create(NazwaPliku,fmOpenRead);
  Stream.ReadComponent(Component);
  Stream.Free;
End;

No dobra ale ja <ort>korzystam</ort> z komponentów ToolBar 2000 i nie wiem czy zadziała

to sprawdź :| [glowa]