move a form

The question is as follows:

In Swag if you have seen it, one of the snippits trys to
show you how to move a form without clicking on the blue bar
at the top, what it says to do is fool windows into thinking
the blue bar is the form by using inherit, anyhow, i tried
and tried and tried to get it to work with delphi 4... i have
almost given up...


So does anyone here know what i am onabout? if you do could
someone show me how to do this? PLEASE?? Thanks.... ok and
if you use winamp heres my free code back to you....

i have been working on an interface for winamp, externally and
this is what i have come up with so far, all i now want to do is
move it, as my questions asks :)


unit winampstalker1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Menus, shellapi;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    Close1: TMenuItem;
    CloseandCloseWinamp1: TMenuItem;
    Move1: TMenuItem;
    PlayAMusicFile1: TMenuItem;
    OpenDialog1: TOpenDialog;
    HideWinamp1: TMenuItem;
    ShowWinamp1: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure PlayAMusicFile1Click(Sender: TObject);
    procedure HideWinamp1Click(Sender: TObject);
    procedure ShowWinamp1Click(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure Move1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure CloseandCloseWinamp1Click(Sender: TObject);
    procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 mousedownvar, wellwhat: boolean;
i1 : integer;
passfile,tmp1,s1,s2 : string;
wnd: hwnd;

tmp_chr: char;
n: integer;
len: integer;


implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
wnd:=findwindow('winamp v1.x',nil);
if wnd=null then close;
i1 := SendMessage(wnd, WM_GETTEXTLENGTH, 0, 0);
SetLength(s1, i1 + 1);
SetLength(s1, SendMessage(wnd, WM_GETTEXT, i1 + 1,integer(s1)));
if s1<>s2 then
 begin
 wellwhat:=false;
  label1.caption:= s1+' ';
 end;
 s2:=s1;
 if (length(s1)<=1) and (wellwhat=false) then
   begin
     wellwhat:=true;
      label1.caption:='Winamp Not Running!!!  ';
   end;
form1.width:=label1.Width;

  tmp1:=label1.caption;
  len:=length(tmp1);
  tmp_chr:=tmp1[1];
  for n:=1 to len-1 do
     begin
        tmp1[n]:=tmp1[n+1];
     end;
   tmp1[len]:=tmp_chr;
label1.caption:=tmp1;
end;

procedure TForm1.PlayAMusicFile1Click(Sender: TObject);
begin
opendialog1.execute;
passfile:=opendialog1.filename;
shellExecute(handle,'open',pchar(passfile),'','',0);
end;

procedure TForm1.HideWinamp1Click(Sender: TObject);
var
 wnd2: hwnd;
begin
   wnd2:=findwindow('winamp V1.x',nil);
   showwindow(wnd2,sw_hide);

end;

procedure TForm1.ShowWinamp1Click(Sender: TObject);
var
 wnd2: hwnd;
begin
   wnd2:=findwindow('winamp V1.x',nil);
   showwindow(wnd2,sw_show);
   showwindow(wnd2,sw_restore);
   setforegroundwindow(wnd2);
end;

procedure TForm1.Close1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Move1Click(Sender: TObject);
begin
  form1.borderstyle:=bsSizeable;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
form1.left:=23;
form1.top:=3;

end;

procedure TForm1.CloseandCloseWinamp1Click(Sender: TObject);
var
  wnd2: hwnd;
begin
   wnd2:=findwindow('winamp V1.x',nil);
   sendmessage(wnd2,wm_close,0,0);
   close;
end;

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 mousedownvar:=true;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if mousedownvar=true then
   begin
      form1.top:=x;
      form1.Left:=y;
   end;

end;

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
mousedownvar:=false;
end;

end.


{
object Form1: TForm1
  Left = 285
  Top = 132
  BorderStyle = bsNone
  Caption = 'Winamp EXT'
  ClientHeight = 13
  ClientWidth = 193
  Color = clLime
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 32
    Height = 13
    Caption = 'Label1'
    Color = 8454143
    ParentColor = False
    OnMouseDown = Label1MouseDown
    OnMouseMove = Label1MouseMove
    OnMouseUp = Label1MouseUp
  end
  object Timer1: TTimer
    Interval = 400
    OnTimer = Timer1Timer
    Left = 142
    Top = 65532
  end
  object PopupMenu1: TPopupMenu
    Left = 164
    object PlayAMusicFile1: TMenuItem
      Caption = 'Play A Music File'
      OnClick = PlayAMusicFile1Click
    end
    object HideWinamp1: TMenuItem
      Caption = 'Hide Winamp'
      OnClick = HideWinamp1Click
    end
    object ShowWinamp1: TMenuItem
      Caption = 'Show Winamp'
      OnClick = ShowWinamp1Click
    end
    object CloseandCloseWinamp1: TMenuItem
      Caption = 'Exit and Close Winamp'
      OnClick = CloseandCloseWinamp1Click
    end
    object Move1: TMenuItem
      Caption = 'Move '
      Enabled = False
      OnClick = Move1Click
    end
    object Close1: TMenuItem
      Caption = 'Exit'
      OnClick = Close1Click
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.mp3'
    Filter = 'Mpeg File|*.mp3|All Files (*.*)|*.*'
    Left = 116
  end
end
}

and the info i added, i hope some one other than me finds it of use
and if you do you use it just mention me somewhere :) thanks again.....

Craig C.