技巧分享：計算機二級考試DELPHI基礎開發(fā)技巧

　　◇[DELPHI]任務條就看不當程序

　　var

　　ExtendedStyle : Integer;

　　begin

　　Application.Initialize;

　　ExtendedStyle := GetWindowLong (Application.Handle, GWL_EXSTYLE);

　　SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);

　　Application.CreateForm(TForm1, Form1);

　　Application.Run;

　　end.

　　◇[DELPHI]ALT+CTRL+DEL看不到程序

　　在implementation后添加聲明:

　　function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external ''KERNEL32.DLL'';

　　RegisterServiceProcess(GetCurrentProcessID, 1);//隱藏

　　RegisterServiceProcess(GetCurrentProcessID, 0);//顯示

　　◇[DELPHI]檢測光驅(qū)符號

　　var drive:char;

　　cdromID:integer;

　　begin

　　for drive:=''d'' to ''z'' do

　　begin

　　cdromID:=GetDriveType(pchar(drive+'':\''));

　　if cdromID=5 then showmessage(''你的光驅(qū)為:''+drive+''盤!'');

　　end;

　　end;

　　◇[DELPHI]檢測聲卡

　　if auxGetNumDevs()<=0 then showmessage(''No soundcard found!'') else showmessage(''Any soundcard found!'');

　　◇[DELPHI]在字符串網(wǎng)格中畫圖

　　StringGrid.OnDrawCell事件

　　with StringGrid1.Canvas do

　　Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);

　　◇[SQL SERVER]SQL中代替Like語句的另一種寫法

　　比如查找用戶名包含有"c"的所有用戶, 可以用

　　use mydatabase

　　select * from table1 where username like''%c%"

　　下面是完成上面功能的另一種寫法:

　　use mydatabase

　　select * from table1 where charindex(''c'',username)>0

　　這種方法理論上比上一種方法多了一個判斷語句,即>0, 但這個判斷過程是最快的, 我想信80%以上的運算都是花在查找字

　　符串及其它的運算上, 所以運用charindex函數(shù)也沒什么大不了. 用這種方法也有好處, 那就是對%,等在不能直接用like

　　查找到的字符中可以直接在這charindex中運用, 如下:

　　use mydatabase

　　select * from table1 where charindex(''%'',username)>0

　　也可以寫成:

　　use mydatabase

　　select * from table1 where charindex(char(37),username)>0

　　ASCII的字符即為%