Dúvida - Códigos

[richard1994x 0]

Quero saber se existe sites que mostrem códigos para Delphi.

Tipo assim, tenho um código para abrir o cd:

 

No SocketCliente:

ClientSocket1.Socket.SendText('abrecd') ;

 

No SocketServer:

if Socket.ReceiveText='abrecd' then begin

MciSendString('Set CdAudio Door Open',nil,0,Handle) ;

end;

 

Só que, eu só tenho esse código, queria um para desligar o PC.

[Akanara 0]

Não tenho idéia

más talvez esse Packer possa te ajudar Espero ter ajudado

 

 

 

 

 

Apostilando.com 2009:: Download: Delphi - Comandos e Funções

[sumonee 0]

Faça Um Button e em seguida tente esse codigo

ClientSocket1.Socket.SendText('desligarpc') ;

Logo em Seguida no "ServeSocket" ponha o seguinte

 

if Socket.ReceiveText='desligarpc' then begin

WinExec('cmd /C shutdown -s -t 03', SW_SHOW);

end;

[tekitos123 1]

tem q declarar uma variavel do tipo string para poder receber os textos certos

 

str := socket.receivetext;

if str='abrecd' then begin

MciSendString('Set CdAudio Door Open',nil,0,Handle) ;

end;

if str='desligarpc' then begin

WinExec('cmd /C shutdown -s -t 03', SW_SHOW);

end;

[richard1994x 0]

Pessoal eu consegue tava dando um erro no código nem vi, hehe.

[Surfistinha£ 14]

Vc quer sites que mostrem códigos para Delphi ?

 

Se for isso o melhor pra mim e o planeta delphi..