http://yuanhong.tianyablog.com适合论坛,QQ群,个人使用的[语视聊天室]代码转让http://yuanhong999.vicp.net:5000http://yuanhong999.vicp.net:5000

delphi 7 开发积累


在做delphi7的简单开发过程中遇到的问题及解决办法
<< 2008 十二月 >>
31 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31 1 2 3
栏目分类
delphi 代码分析 (3)
oracle 代码分析 (0)
博客登录
用户:
密码:
最新文章
oracle 锁表的处理(2006-8-2)
技巧三例(2006-6-20)
实现调用外部EXE程序的代码(2006-5-19)
实现键盘输入首字母查询的方法!(2006-5-19)
[大话IT]关于google,关于baidu(2006-5-11)
更多>>
最新评论
留言
在这给我留言吧 >>
友情博客
标签列表
博客搜索
博客音乐
日志存档
2006-8 ( 1 )
2006-6 ( 1 )
2006-5 ( 3 )
友情链接
统计信息
访问:7785 次
日志: 5篇
评论: 0 个
留言: 0 个
建站时间: 2004-12-15
博客成员
大肚999 管 理 员



语视聊天室 | 留言板 | 加为友情博客

2006-8-2 星期三(Wednesday) 晴
oracle 锁表的处理
一次解决session无法完全删除问题的全过程(原创)
作者:未知
投稿:(转贴)

以下正文:

开发环境:win2000server+oracle9i+delphi开发人员报告:在程序中杀了JOB,但是被操作的表还是锁表状态,其中有一张日志表还在不断插入记录,直到执行完所有插入操作(一个漫长的等待过程)才能解锁现场描述:oem中被杀job起的SESSION状态为killed,其中有3张表被锁点击右键--》中断会话 提示: 标记要删去的会话

处理方法一 :

1.SELECT saddr,sid,serial#,paddr,username,status FROM v$session WHERE username IS NOT NULL

example:
saddr,sid,serial#,paddr,username,status FROM v$session WHERE username = 'XNJW0419' ;
......
# posted by 大肚999 @ 2006-08-02 12:19 | 分类:未分类 |评论(0)| 浏览:657
2006-6-20 星期二(Tuesday) 晴
技巧三例
 隐藏任务栏屏蔽热键

  在自己的程序中将任务栏隐藏起来,并屏蔽Ctrl+Alt+Del和Alt+Tab等系统热键,也是很有趣的。要实现它们比较容易,但千万别忘了恢复正常,另外,本例中使用了3个API函数:FindWindow、ShowWindow和SystemParametersInfo,在使用它们之前一定要进行申明。


  Implementation

  var Hwnd:THandle;

  Tmp:integer;

  procedure TForm1.Button1Click(Sender: TObject);

  begin

  Hwnd:=FindWindow('Shell_TrayWnd',nil);

  if Hwnd<>0 then ShowWindow(Hwnd,SW_HIDE); //隐藏任务栏

  SystemParametersInfo(SPI_......
# posted by 大肚999 @ 2006-06-20 23:52 | 分类:delphi 代码分析 |评论(0)| 浏览:120
2006-5-19 星期五(Friday) 晴
实现调用外部EXE程序的代码
我想在一个过程中 按以下步骤执行
第一步定义变量
第二步 调用外部的exe程序 等exe程序结束了
执行第三步 。。。。
我知道怎样实现 第三步等待 我把第二步中的exe关闭 在来执行
主要是朋友要做一个接口 中间调用 别人的exe 如果调用然后处理完了 在继续执行


try this:
function ExecAppWait(AppName, Params: string): Boolean;
var
 ShellExInfo: TShellExecuteInfo;
begin
 FillChar(ShellExInfo, SizeOf(ShellExInfo), 0);
 with ShellExInfo do
 begin
 cbSize := SizeOf(ShellExInfo);
 fMask := see_Mask_NoClose......
# posted by 大肚999 @ 2006-05-19 16:05 | 分类:delphi 代码分析 |评论(0)| 浏览:170
  页码:1/2  [1][2]   
本站域名:http://yuanhong999.blog.tianya.cn/