baradar
چهارشنبه 14 مهر 1389, 14:03 عصر
با سلام
من یک برنامه نوشتم که از دیتابیس فاکس پرو یعنی دی بی اف استفاده می کنه اما روی ویندوز 7
دیتابیسش درست کار نمی کنه لطفا راهنمایی کنید که چکار باید انجام دهم:متفکر:
یه سوال دیگه اینکه آیا ویندوز 7 با تابع ShellExecute مشکل داره
متشکرم
K.Mohammadreza
چهارشنبه 14 مهر 1389, 15:34 عصر
با سلام
نیاز به نصب Microsoft Visual Foxpro Driver دارید
baradar
چهارشنبه 14 مهر 1389, 16:15 عصر
یه سوال دیگه اینکه آیا ویندوز 7 با تابع ShellExecute مشکل داره
لطفا جواب این سوالم رو هم بدید
K.Mohammadreza
چهارشنبه 14 مهر 1389, 20:06 عصر
با سلام
من از اين تابع اصلاً استفاده نمي کنم چون به DLL هاي خاص ويندوز و RunDLL32.exe نياز داره بجاي اون من از تابع زير استفاده مي کنم
Function RunProcess(Const AppPath:String;MustWait:Boolean=False;AppParams:St ring='';Visibility:Word=SW_SHOWNORMAL):DWord;
Var
SI:TStartupInfo;
PI:TPROCessINFORMATION;
Proc:THandle;
zFileName:Array[0..Max_Path*2]of char;
zParams:Array[0..Max_Path]of char;
begin
FillChar(SI,SizeOf(SI),0);
SI.cb:=SizeOf(Si);
Si.wShowWindow:=Visibility;
If Not CreateProcess(strPCopy(zFilename,AppPath),
StrPCopy(zParams,APpParams),
nil,nil,False,NORMAL_PRIORITY_CLASs ,nil,nil,SI,PI) then
Raise EXCeption.CreateFmt('Failed to execute program '+
apppath+'.Error Code %d',[GetlastError]);
Proc:=PI.hProcess;
CloseHandle(Pi.HThread);
If MustWait then
If WaitForSingleObject(Proc,infinite)<>Wait_Failed then
GetExitCodeProcess(Proc,Result);
CloseHandle(Proc);
end;
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.