请注意://抗议 <----- !!!!!
主 题:看来此论坛无能人也!无人会回答此问题!都是一群foolish man!!!同意zswang !
主 题:看来此论坛无能人也!无人会回答此问题!都是一群foolish man!!!同意zswang !
解决方案 »
- delphi 调用 dll
- 关于TTabControl的选中Tab
- Delphi socket两个局域网之间通讯问题
- 为什么我下午发的贴子,现在没了呢,而且信誉分扣了很多
- 忍无可忍,强烈抗议DELPHI版底下的日文广告!
- 怎么样修改TPageControl控件的中页面TabSheet1的标头背景的颜色
- 如何在IdTCPServer 的OnExecute同步调用一个主窗体的方法,用Synchronize好像不行
- MM,有个难题急需解决(关于 DateTimePicker控件的)
- 如何强行关闭应用程序??
- Application.handle和Application.MainForm.Handle的区别?
- 奇怪,excel
- 请教一个用ADOQuery做缓存设置的问题。谢谢
var
TmpA,TmpE:Pchar;
TmpB,TmpC,TmpD,TmpF:DWord;
SerialNum:PDWord;
begin
TmpA:='';
TmpB:=0;
TmpC:=0;
TmpD:=FS_UNICODE_STORED_ON_DISK ;
TmpE:='';
TmpF:=0;
GetVolumeInformation(Pchar(DiskName+':\'),TmpA,TmpB,@SerialNum,TmpC,TmpD,TmpE,TmpF);
Result :=DWord( SerialNum );
if DWord(SerialNum)=0 then
Try
ChDir(DiskName+':\');
Result := 1;
except
end;
end;
主 题:看来此论坛无能人也!无人会回答此问题!都是一群foolish man!!!<--- 无言!同意zswang !