کار نکردن دیتابیس در ویندوز 7

[baradar]

با سلام


من یک برنامه نوشتم که از دیتابیس فاکس پرو یعنی دی بی اف استفاده می کنه اما روی ویندوز 7


دیتابیسش درست کار نمی کنه لطفا راهنمایی کنید که چکار باید انجام دهم:متفکر:

یه سوال دیگه اینکه آیا ویندوز 7 با تابع ShellExecute مشکل داره

متشکرم

[K.Mohammadreza]

با سلام
نیاز به نصب Microsoft Visual Foxpro Driver دارید

[baradar]

یه سوال دیگه اینکه آیا ویندوز 7 با تابع ShellExecute مشکل داره

لطفا جواب این سوالم رو هم بدید

[K.Mohammadreza]

با سلام
من از اين تابع اصلاً‌ استفاده نمي کنم چون به 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;