Per invocare un dialog di conferma in Javascript :
|
1 2 3 4 |
if(confirm( 'Si vuol procedere' )) { alert('hai premuto ok') } else { alert('hai premuto annulla') }; |
Associare un estensione file alla vostra applicazione : Associare un estensione file alla vostra applicazione :
|
1 |
Procedure <b>RegisterFileType</b>(cMyExt, cMyFileType, cMyDescription, ExeName: string; IcoIndex: integer; DoUpdate: boolean = false); |
|
1 |
var |
|
1 |
Reg: TRegistry; |
|
1 |
begin |
|
1 |
Reg := TRegistry.Create; |
|
1 |
try |
|
1 |
Reg.RootKey := HKEY_CLASSES_ROOT; |
|
1 |
Reg.OpenKey(cMyExt, True); |
|
1 |
// Write my file type to it. |
|
1 |
// This adds HKEY_CLASSES_ROOT\.abc\(Default) = 'Project1.FileType' |
|
1 |
Reg.WriteString('', cMyFileType); |
|
1 |
Reg.CloseKey; |
|
1 |
// Now create an association for that file type |
|
1 |
Reg.OpenKey(cMyFileType, True); |
|
1 |
// This adds HKEY_CLASSES_ROOT\Project1.FileType\(Default) |
|
1 |
// = 'Project1 File' |
|
1 |
// This is what you see in the file type description for |
|
1 |
// the a file's properties. |
|
1 |
Reg.WriteString('', cMyDescription); |
|
1 |
Reg.CloseKey; // Now write the default icon for my file type |
|
1 |
// This adds HKEY_CLASSES_ROOT\Project1.FileType\DefaultIcon |
|
1 |
// \(Default) = 'Application Dir\Project1.exe,0' |
|
1 |
Reg.OpenKey(cMyFileType + '\DefaultIcon', True); |
|
1 |
Reg.WriteString('', ExeName + ',' + IntToStr(IcoIndex)); |
|
1 |
Reg.CloseKey; |
|
1 |
// Now write the open action in explorer |
|
1 |
Reg.OpenKey(cMyFileType + '\Shell\Open', True); |
|
1 |
Reg.WriteString('', '&Open'); |
|
1 |
Reg.CloseKey; |
|
1 |
// Write what application to open it with |
|
1 |
// This adds HKEY_CLASSES_ROOT\Project1.FileType\Shell\Open\Command |
|
1 |
// (Default) = '"Application Dir\Project1.exe" "%1"' |
|
1 |
// Your application must scan the command line parameters |
|
1 |
// to see what file was passed to it. |
E’ possibile ottenere l’ip (ip address) del proprio computer utilizzando la classe Indy “idIpWatch” , ad esempio per inserire l’ip nella caption del ns form è sufficiente:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
implementation uses IdIPWatch; ... procedure TfrmMain.FormCreate(Sender: TObject); var ids: TidIpWatch; begin ids := TidIpWatch.Create; Caption := Caption + '(' + ids.LocalIP + ':8888)'; ids.Free; end; |
Se invece ci si volesse complicare un pochino la vita si potrebbe interrogare direttamente il winSock in modo da non dover includere una classe indy nel progetto…
Leggi tutto
Esempio invocazione package SQL Server da Visual Basic Script engine:
|
1 2 3 4 5 6 7 8 9 10 11 |
sub ExecutePackage(Server,UserId,UserPw,PackageName); set objDTSPackage = CreateObject("DTS.Package"); objDTSPackage.LoadFromSQLServer Server, UserId,UserPw, DTSSQLStgFlag_Default, "", "", "", PackageName objDTSPackage.Execute Set objDTSPackage = Nothing msgbox("Esecuzione package conclusa") End Sub |
|
1 |
call ExecutePackage("localhost","sa", "sa", "PortingFromIB") |
Per le connessioni ADO in Delphi si usa in genere il componente TADOConnection i cui parametri di connessioni sono definiti da una stringa di connessione. Questo componente è la mappatura esatta delle API degli MDAC per le connessioni ADO. La definizione della connection string non è sempre immediata e quando si crea un programma di configurazione /…
Leggi tutto
In Delphi è possibile accedere a tutte le API (Advanced Program Interfaces) di Windows, molte di queste già importate in molte librerie preconfezionate per semplificarci la vita. La funzione di Windows che permettere di legere l’host name è GetComputerName implementata nella dll di windows “Kernel32.dll”. La “Kernel32.dll” viene mappata in Delphi dalla unit Windows.pas. Codice…
Leggi tutto
