Mega Code Archive

 

Categories / Delphi / Forum

 

Neoturk - çalıştır function

herkese merhaba, {archive by neoturk} {****************** çalıştır ******************} procedure calistir(x:string); begin shellexecute(form1.handle,'open',pchar(x), nil, nil, sw_shownormal); end; kullanımı: calistir('www.hotmail.com'); calistir('notepad.exe'); calistir('bilmemne.jpg'); calistir('c:\myprograms\program.exe'); vs vs.. saygılarımla_ xxnt03@lycos.co.uk neoturk_