三个问题，请帮忙看看，来者有分。

Question

一：怎样判别一个程序运行在内存中。不知怎样实现。
二：在窗口一上点一下按钮后运行另一窗口，同时窗口一最小化（windowstate:=wsnormal最小化后是停留在屏幕的最下方，我想最小化后停留在桌面工具栏的上面），不知怎样实现。
三：我有一个表，某一字段长度为100，我用ADOConnection1,ADOQuery1,DBEdit1最后把数据显示在DBEdit1中时它对应的长度也是100，做的报表后面也跟着一长串空格，我以前用bde时没这个问题的，不知怎么回事。请朋友帮我看看，谢谢。

Answer 1

1、temphandle := findwindow('','window name');
  if temphandle <> nil then
     showmessage('the application already run');

Answer 2

1、temphandle := findwindow('','window name');
  if temphandle <> nil then
     showmessage('the application already run');
------------
temphandle 是什么类型的变量？ 

Answer 3

china_lyz(编程浪子)
----------
能不能我输入'111'，那他就显示三个字节的长度，能不能做到呢：
'你可以设置字段的显示长度为50'，你是在哪里设置的。

Answer 4

第二个问题可以找一找以前的帖子。
第三个问题dbedit是不是有个autosize的属性？

Answer 5

三：
表中字段类别该为varchar

Answer 6

weitao999(涛涛) :
------------
第三个问题解决了，谢谢你。

Answer 7

A：一、in Project -> View source, write the follow codes:
...
uses
  ...,windows;begin
  CreateMutex(nil, True, 'THIS_PROGRAM_ALREADY_EXISTS');
  if GetLastError = ERROR_ALREADY_EXISTS then
    Exit;
  ...
end.二、你是想打开一个窗口后，原窗口不可见？下面这段代码下可供参考：
...
uses
  ..., Unit2;
...
//In Unit2 the Form name is 'Form2'
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  try 
    Self.Hide;
    Form2.ShowModal;
    Self.Show;
  except
    Form2.Free;
  end;
end;三、这个问题因为我没有碰到，帮不了你。