edysoftware.com

The way to hide and show taskbar windows

procedure hideTaskbar;
var
wndHandle: THandle;
wndClass: array[0..50] of Char;
begin
StrPCopy(@wndClass[0], ‘Shell_TrayWnd’);
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE); // This hides the taskbar
end;

Continue Reading…

unit JRO_TLB;

// ************************************************************************ //
// WARNING
// ——-
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// ‘Refresh’ command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
Continue Reading…

Read And Write text file

procedure TForm1.Button3Click(Sender: TObject);
var

  F1, F2: TextFile;
  Ch: Char;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.Filename);
    Reset(F1);
    if SaveDialog1.Execute then begin
      AssignFile(F2, SaveDialog1.Filename);
      Rewrite(F2);
      while not Eof(F1) do
      begin
        Read(F1, Ch);
        Write(F2, Ch);
      end;
      writeln(f2,’add new data’);
      CloseFile(F2);
    end;
    CloseFile(F1);
  end
end;

A program contains

a program heading,
a uses clause (optional), and
a block of declarations and statements.

The program heading specifies a name for the program. The uses clause lists units used by the program. The block contains declarations and statements that are executed when the program runs. The IDE expects to find these three elements in a single project (.dpr) file.
Continue Reading…

There is simple way to get table name from adoconnection. One line command.

• Put adoconnection
• Set active becaome true
• Put Button
• Put Listbox as destination of table names

unit Unit1;

interface

Continue Reading…