Delphi Pubic Function
function GetFileSizeString(const pFileName: String):String;
var
iFileSize: Int64;
begin
Result := '0';
iFileSize := FileSizeByName(pFileName);
Result := IntToStr(iFileSize);
end;
function WinExecAndWait(strFileName: string; uCmdShow: UINT): DWORD;
var
cAppName: array[0..512] of char;
cCurDir: array[0..255] of char;
strWorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
StrPCopy(cAppName, strFileName);
GetDir(0, strWorkDir);
StrPCopy(cCurDir, strWorkDir);
FillChar(StartupInfo, Sizeof(StartupInfo), #0);
StartupInfo.cb := SizeOf(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := uCmdShow;
if not CreateProcess(nil, cAppName, nil, nil, true, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil, nil, StartupInfo, ProcessInfo) then
Result := INFINITE
else
begin
WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess, Result);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end;
end;
Ïà¹ØÎĵµ£º
The built-in assembler allows you to write assembly code within Delphi programs. It has the following features:
ÄÚǶµÄ»ã±àÆ÷ÔÊÐíÔÚdelphi³ÌÐòÖÐÊéд»ã±à´úÂ룬ËûÓÐÈçÏÂÌØÐÔ£º
Allows for inline assembly
ÔÊÐíÄÚǶ»ã±à
Supports all instructions found in the Intel Pentium III, In ......
×î½üÒª×öÒ»¸öͼÊé¹ÜÀíϵͳ£¬²¢ÇÒÊÇÓÃDelphiÈí¼þ¿ª·¢£¬ºÜ¶à¶¼²»¶®£¬±¾À´ÊÇ¿ÉÒÔ´ÓÍøÉÏÏÂÔØ£¬Ñ§Ï°Ò»Ïµģ¬¿ÉÊDz»ÖªµÀÔõÃ´ÆÆ½âµÇ½ÃÜÂ룬ÔËÐÐʱû°ì·¨µÇ½½øÈ¥£¬5555~~ºÃºÃѧϰ£¬ÓиßÊÖÖ¸µã¾ÍºÃÁË…… ......
ʹÓÃDelphiµ÷ÓÃWebServices½Ó¿ÚµÄ¼òµ¥Ó¦ÓÃʵÀý
Delphi´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡£
µÚÒ»²½£¬×¼±¸¹¤×÷£¬Á˽âÐÂÀ˶ÌÐÅWeb Service¡£ÐÂÀË·¢ËͶÌÐŵÄWeb Serviceµ ......
Ctrl+PageUp ½«¹â±êÒÆÖÁ±¾ÆÁµÄµÚÒ»ÐУ¬ÆÁÄ»²»¹ö¶¯¡£
Ctrl+PageDown ½«¹â±êÒÆÖÁ±¾ÆÁµÄ×îºóÒ»ÐУ¬ÆÁÄ»²»¹ö¶¯¡£
Ctrl+↓ ÏòϹö¶¯ÆÁÄ»£¬¹â±ê¸úËæ¹ö¶¯²»³ö±¾ÆÁ¡£
Ctrl+↑ &nb ......
//²Î¿¼µØÖ·£ºhttp://www.wangchao.net.cn/bbsdetail_41190.html
Ò»¡¢Î¢ÈíRegExp
1. ÏÂÔØ²¢°²×°×îаæµÄ"Microsoft(r) Windows(r) Script"
¡¡¡¡2. RegExp°üº¬ÔÚvbscript.dllÖÐËùÒÔÎÒÃDZØÐëÏÈ×¢²áregsvr32 vbscript.dll
¡¡¡¡×¢(°²×°ÁËIe5ºóĬÈÏÒѾ°üº¬¸Ã¿Ø¼þ)
¡¡¡¡3.ÔÚDelph ......