//cacher un fichier procedure TForm1.Button1Click(Sender: TObject); begin FileSetAttr('C:YourFile.ext', faHidden); end; //Les autres attibutsfaReadOnly $00000001 Schreibgeschützte...
procedure TForm1.Button1Click(Sender: TObject); var i, dwResult: DWORD ; hEnum: THANDLE ; lpnrDrv: PNETRESOURCE ; s: string; const cbBuffer:DWORD = 16384; ...
procedure TForm1.Button2Click(Sender: TObject); var i:Integer; begin Listbox1.Clear; file:// if frames available if Webbrowser1.OleObject.Document.Frames.Length 0 then begin ...
uses Winsock; function WinsockEnabled: boolean; var wsaData: TWSAData; begin result := true; case Winsock.WSAStartup($0101,wsaData) of WSAEINVAL, WSASYSNOTREADY, WSAVERNOTSUPPORTED:...
procedure TForm1.Button1Click(Sender: TObject); begin //affiche la boite de dialogue if WNetConnectionDialog(Handle, RESOURCETYPE_DISK) = NO_ERROR then begin ShowMessage('New...
implementation{$R *.DFM} function tapiRequestMakeCall(DestAddress, AppName, CalledParty, Comment: PChar): LongInt; stdcall; external 'TAPI32.DLL'; procedure TForm1.Button1Click(Sender:...
procedure TMainForm.FetchPage;Var VDoc : OleVariant;Begin VDoc := WebBrowser1.Document; Memo1.Clear; Memo1.Text := VDoc.Script.Document.Body.InnerHTML;End; procedure ...
procedure TForm1.Button1Click(Sender: TObject); var vaIn, vaOut: OleVariant; begin WebBrowser1.Navigate('http://www.google.com'); WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT,...
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to Webbrowser1.OleObject.Document.links.length - 1 do begin ...
uses URLMon, ShellApi; function DownloadFile(SourceFile, DestFile: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; except ...
var HookID: THandle; DisableRButton: boolean; Form1: TForm;implementation function MouseProc(nCode: integer; wParam, lParam: longint): longint; stdcall; function GetClassNameEnh(Handle:...
Uses shellapi; procedure TForm1.Label1Click(Sender:TObject); begin shellexecute(handle,'open','http://www.swissdelphicenter.ch',nil,nil,sw_show); end;
uses registry; procedure TForm1.Button1Click(Sender: TObject); var Reg:TRegistry; KeyName: String; ValueStr: String; begin Reg:=TRegistry.Create; try Reg.RootKey:=HKEY_CLASSES_ROOT; ...
uses shellapi; procedure TForm1.Button1Click(Sender: TObject); begin shellexecute(handle,'open','mailto:user@host.com',nil,nil,sw_shownormal); end;
procedure TForm1.Button1Click(Sender: TObject); begin NMSMTP1.Host := 'mail.host.com'; NMSMTP1.UserID := 'username'; NMSMTP1.Connect; NMSMTP1.PostMessage.FromAddress :=...
uses winsock; function IPAddrToName(IPAddr : String): String; var SockAddrIn: TSockAddrIn; HostEnt: PHostEnt; WSAData: TWSAData; begin WSAStartup($101, WSAData); ...
function GetIEFavourites( const favpath: string):TStrings; var searchrec:TSearchrec; str:TStrings; path,dir,filename:String; Buffer: array[0..2047] of Char; found:Integer; begin ...
uses ddeman; function GetURL(Service: string): String; var ClDDE: TDDEClientConv; temp:PChar; begin Result := '';//create a new DDE Client object ClDDE:= TDDEClientConv.Create( nil...
uses wininet;Function ConnectionKind :boolean; var flags: dword; begin Result := InternetGetConnectedState(@flags, 0); if Result then begin if (flags and INTERNET_CONNECTION_MODEM)...
function FillForm(WebBrowser: TWebBrowser; fieldname:String; value:String) : Boolean; var i,j:Integer; FormItem:Variant; begin Result:=false; //no form on document If...