وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/۱٠
procedure TForm1.Connect_ButtonClick(Sender: 
TObject);
var
cmd,par,fil,dir : PChar;
begin
cmd := 'Open';
fil 
:= 'rasdial.exe';
par := PChar(EditEntry.Text + ' ' + EditUser.Text + ' ' 
+
EditPass.Text + ' /PHONE:' + EditPhone.Text + ' 
/PHONEBOOK:c:\test.pbk');
dir := 
'C:';
ShellExecute(Self.Handle,cmd,fil,par,dir,SW_SHOWMI 
NNOACTIVE);
end;
procedure TForm1.DisConnect_ButtonClick(Sender: 
TObject);
var
cmd,par,fil,dir : PChar;
begin
cmd := 'Open';
fil 
:= 'rasdial.exe';
par := PChar(EditEntry.Text + ' /DISCONNECT');
dir := 
'C:';
ShellExecute(Self.Handle,cmd,fil,par,dir,SW_SHOWMI 
NNOACTIVE);
end;
نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :