ËÄܰïÎÒ°ÑÏÂÃæµÃ´úÂë¸ÄΪdelphi°¡
BOOL GetTokenByName(HANDLE &hToken,LPSTR lpName)
{
if(!lpName)
{
return FALSE;
}
HANDLE hProcessSnap = NULL;
BOOL bRet = FALSE;
PROCESSENTRY32 pe32 = {0};
hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if (hProcessSnap == INVALID_HANDLE_VALUE)
return (FALSE);
pe32.dwSize = sizeof(PROCESSENTRY32);
if (Process32First(hProcessSnap, &pe32))
{
do
{
if(!strcmp(_strupr(pe32.szExeFile),_strupr(lpName)))
{
HANDLE hProcess = OpenProcess(PROCESS_QUERY_INFORMATION,
FALSE,pe32.th32ProcessID);
bRet = OpenProcessToken(hProcess,TOKEN_ALL_ACCESS,&hToken);
CloseHandle (hProcessSnap);
return (bRet);
}
}
while (Process32Next(hProcessSnap, &pe32));
bRet = TRUE;
}
else
bRet = FALSE;
CloseHandle (hProcessSnap);
return (bRet);
}
Èí¼þ¿ª·¢Íø
BOOL RunProcess(LPCSTR lpImage)
{
if(!lpImage)
{
return FALSE;
}
HANDLE hToken;
if(!GetTokenByName(hToken,"EXPLORER.EXE"))
{
return FALSE;
}
STARTUPINFO si;
PROCESS_INFORMATION pi;
ZeroMemory(&si, sizeof(STARTUPINFO));
si.cb= sizeof(STARTUPINFO);
si.lpDesktop = TEXT("winsta0\\default");
BOOL bRe
Ïà¹ØÎÊ´ð£º
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
ÏëÇëÎʸ÷λ£ºÅ̵ãά»¤ÀïÃæ£ºÅÌÓ¯¿÷ÊýÁ¿=¿â´æÊýÁ¿+Èë¿âÊýÁ¿-³ö¿âÊýÁ¿£¬ÕâÑù×öÊǶԵÄÂð£¬
Â¥ÉÏÕý½â,ÕýÊýÅÌÓ¯ ¸ºÊýÅÌ¿÷
һ¥ÕýÈ·£¡
лл¸÷λÀ²
¾ÍÊÇ£ºÊDz»ÊÇ Êµ¼Ê¿â´æÀïµÄ¿â´æÁ¿ ÓëÄãÊÖ¶¯Êä½øÈ¥µÄÊýÁ¿Ö®¼äµ ......
ÎÒÔÚ³ö¿â´°¿ÚдÁ˸ö·½·¨£ºADOQueryBill µÄbNum ×ֶεÄOnValidate·½·¨ ʵÏÖµÄÊdzö¿âÊýÁ¿²»ÄÜ´óÓÚÈë¿âµÄÊýÁ¿£¬·ñÔò¾ÍÖØÐÂÊäÈëÊýÁ¿£¬ÒÔÏÂÊÇÎҵĴúÂ룺
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
ÎÒÔõô²éÁËÄÇô¶à˵ÊÇÄÜÆÆ½âµÄ£®½á¹û¶¼²»ÐУ®ÄãÃÇÓÐûÓÐѽ£®¸øÎÒ¸öÏêϸµÄ½â¾ö·½°¸£®ÏÂÔØÄĸö°æ±¾£®ÆÆ½âÎļþ£¬»¹ÓÐ×¢²áÂë
²»Çå³þ
ÏÂÔØ¹Ù·½¹âÅ̾µÏñ£¬ÓÃdelphidistiller1.85ÆÆ½â
µ½www.2ccc.comÉÏÈ¥ÕÒdelphidis ......