快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

希尔顿娱乐官网就选75775_集报网



2)打开CDROM盒的函数

function OpenCDROM(Drive:pChar):Boolean; // 打开CDROM

var

Res:MciError;

OpenParm:TMCI_OPEN_Parms;

Flags:Dword;

s:string;

DeviceID:Word;

begin

Result:=false;

s:=Drive+':';

flags:=mci_Open_Type or mci_Open_Element;

With OpenParm do

begin

dwCallBack:=0;

lpstrDeviceType:='CDAudio';

lpstrElementName:=PChar(s);

end;

Res:=mciSendCommand(0,mci_Open,Flags,Longint(@OpenParm));

If Res

3)关闭CDROM盒的函数

function CloseCDROM(Drive:pChar):Boolean; // 关闭CDROM

var

Res:MciError;

OpenParm:TMCI_OPE希尔顿娱乐官网就选75775N_Parms;

Flags:Dword;

s:string;

DeviceID:Wor希尔顿娱乐官网就选75775d;

begin

Result:=false;

s:=Drive+':';

flags:=mci_Open_Type or mci_Open_Element;

With OpenParm do

begin

dwCallBack:=0;

lpstrDeviceType:='CDAudio';

lpstrElementName:=PChar(s);

end;

Res:=mciSendCommand(0希尔顿娱乐官网就选75775,mci_Open,Flags,Longint(@OpenParm));

If Res

4)置法度榜样启动时履行菜单鼠标事故

procedure TForm1.mAutorunClick(Sender: TObject);

var

Reg: TRegistry;

begin

if Application.ExeName希尔顿娱乐官网就选75775='' then // 判断利用法度榜样文件名是否为空

begin

MessageBox(Handle,'利用法度榜样名称弗成以为空。','差错',MB_OK+MB_ICONERROR);

Exit;

end;

// 初始化AppFileName

//GetMem(Application.ExeName,256);

// edit1.text.GetTextBuf(AppFileName,256);

Reg:=TRegistry.Create;

try

Reg.RootKey:=HKEY_LOCAL_MACHINE;

if (Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False))=True then

begin

// 在注册表中添加数值

Reg.WriteString('MyStartup',Application.ExeName);

end

else

MessageB希尔顿娱乐官网就选75775ox(Handle,'打开注册表掉败。','差错',MB_OK+MB_ICONERROR);

finally

Reg.CloseKey;

Reg.Free;

end;

end;

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

您可能还会对下面的文章感兴趣: