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_