用Delphi开发屏幕保护预览程序

新客网 XKER.COM 2006-07-13 来源： 收藏本文

end;

procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
  WinExec(pchar(FileListBox1.FileName + ' /p ' + inttostr(Panel2.handle)),    SW_Show);
  Fresh1;
end;

procedure TForm1.Hide1Click(Sender: TObject);
var
    h : integer;
    s : string;
begin
  if ListBox1.itemindex = -1 then exit;
  s := Listbox1.items[ListBox1.itemindex];
  h := strtoint(copy(s, pos(':', s) + 1, length(s)));
  ShowWindow(h, SW_HIDE);
  Fresh1;
end;

procedure TForm1.Show1Click(Sender: TObject);
var
    h : integer;
    s : string;
begin
  if ListBox1.itemindex = -1 then exit;
  s := Listbox1.items[ListBox1.itemindex];
  h := strtoint(copy(s, pos(':', s) + 1, length(s)));
  ShowWindow(h, SW_SHOW);
  Fresh1;
end;

procedure TForm1.Close1Click(Sender: TObject);
var
    h : integer;
    s : string;
begin
  if ListBox1.itemindex = -1 then exit;
  s := Listbox1.items[ListBox1.itemindex];
  h := strtoint(copy(s, pos(':', s) + 1, length(s)));
  PostMessage(h, WM_QUIT, 0, 0);
  Fresh1;
end;

end.



Copyright © 上海聚声计算机系统工程有限责任公司 1999-2000, All Rights Reserved

• ·DELPHI删除指定目录下指定扩展名的文件
• ·垃圾清理势在必行——Java垃圾收集算法
• ·经验技巧：分享两条Delphi开发经验
• ·Delphi调用WebServices(C#)代码
• ·delphi制作的托盘程序
• ·基于Delphi的“八皇后”问题动态实现
• ·半透明窗体的制作
• ·走近Inprise/Borland
• ·COM/DCOM中如何传递数组
• ·监视剪贴板内容
• ·Linux上最新的Kylix截屏画面
• ·怎样处理数据库中的NULL
• ·在delphi中如何限制鼠标的移动区域。
• ·Delphi + Word = 数据库 + 公文处理
• ·用InstallShield制作数据库应用系统的安装程序
• ·Delphi的优点