mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Trovare l'handle di una finestra

 Sto cercando di trovare l'handle di una finestra... utilizzando la 
funzione:
 FindWindow('?????', Nil); 
il problema è non so' cosa mettere al posto dei punti di domanda...
Grazie Grazie
Manuel
--- posted by geoForum on 
http://www.delphiedintorni.it

 il problema è non so' cosa mettere al posto dei punti di domanda...
Il "class name", come riporta la documentazione del SDK di Win32.
Il class name è il nome della classe nella quale è registrata la finestra,
quando viene creata con CreateWindow/CreateWindowEx.  Delphi fa coincidere
questo nome con il nome della classe della form.  Quindi se la tua
finestra è TFormMiaFinestra, la classe da cercare è "TFormMiaFinestra". 
Bada che ne potresti avere più di una.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Ma se la finestra è esterna alla mia applicazione?


 Ma se la finestra č esterna alla mia applicazione?
O conosci il "class name" (lo puoi scoprire usando programmi come
WinSight32) oppure usi la caption.  L'alternativa č usare EnumWindows con
una funzione di callback.  Scegli tu.


Grazie ci provero'!!


procedure TForm1.Button1Click(Sender: TObject);
var
  hw: THandle;
  wc: string;
begin
// ClassName della finestra
  wc := 'Telnet/400';  //esempio con Blocco note
// trova l'handle della finestra
  hw := FindWindow(nil, pchar(wc));
   SetForegroundWindow(hw);
  if SendMessage(hw, WM_SHOWWINDOW , 0, 0) = 0 then begin
  // comando per attivare i menů (come tasto Alt)
    //PostMessage(hw, WM_SYSCOMMAND, SC_KEYMENU, 0);
  // manda tasto "e" per il menů edit (inglese)
    PostMessage(hw, WM_KEYDOWN, VK_TAB, 0);
  // manda tasto "d" per il comando date (inglese)
  end else // non ascolta torno in primo piano
    SetForegroundWindow(handle);
  end;
COn Questa procedura la finestra si mostra ma nn manda il carattere TAB

Newsgroup: it.comp.lang.delphi
Titolo: Proprieta' immagini

Salve,
dato un file ,BMP ancora non caricato come faccio a sapere :
dimesioni
profondita' del colore
ecc..?
GRAZIE 1000
faf...@tiscalinet.it

profondita' del colore
"Qualcosa" bisogna caricare comunque :)
Questo non e' il posto giusto per spiegare il formato dei BMP,
comunque posso spiegarti "alla buona" cosa andare a leggere, anche se
ti consiglio poi di scaricarti una documentazione completa.
Per essere relativamente sicuro che il file che apri e' bitmap, i
primi 2 byte dovrebbero contenere "BM".
Poi salta 16 byte, e i prossimi 4 byte contengono la larghezza.
I successivi 4 contengono l'altezza, poi saltane 2 (dovrebbero
contenere "1"), e i prossimi due sono il logaritmo in base due del
numero di colori.
Di solito io li chiamavo "bitplane", ma nel formato BMP i bitplane
sono un'altra cosa. Cmq, ad esempio se ci trovi "4" significa che e'
un 16 colori (2^4=16)
Spero che basti...
ZioBit

primi 2 byte dovrebbero contenere "BM".
Come faccio a leggere i byte di una BitMap ?
GRAZIE 1000
faf...@tiscalinet.it

On Sun, 26 Dec 1999 12:07:17 GMT, 
faf...@tiscalinet.it
 (fafino) wrote:
"Caricato" il file BitMap  si legge la proprieta' PixelFormat
Ciao
faf...@tiscalinet.it

Newsgroup: it.comp.lang.delphi
Titolo: Finezze sul Drag 'n drop

Il form della mia applicazione contiene un PageControl con due Tab, due
schede.
Uso un componente che fa il drag 'n drop di file da esplora risorse.
La cosa che devo fare è la seguente:
apro la mia finestra di esplora risorse, scelgo i file da draggare e li
porto sul form del mio programma e qui tutto ok. Ora però voglio fare in
modo che quando sto draggando i file e con il mouse mi posiziono su di un
tab di questo Pagecontrol, automaticamente mi swicciasse, quindi mi si
attivasse in modo da potergli draggare sopra i miei file, mi sono spiegato?
Che evento o cos'altro devo impostare?
Saluti
Davide
PS: Auguroni a tutti :)

 ha scritto nel messaggio
news:c5ceha$3bg$1...@le1.cs.unibo.it...

Esiste OnMouseOver? (non ho tempo di controllare...la sparo lì)

> Esiste OnMouseOver? (non ho tempo di controllare...la sparo lě)
No, non esiste una funzione di quel tipo.
Altre soluzioni?
Davide

OnMouseMove del tab intendo...

PS: Auguroni a tutti :)
	Ciao
	MassimoB
 

Wow, ora provo, appena ho fatto ti dico sicuramente
Per ora grazie
Davide

Dunque la situazione è questa.
Il pagecontrol ha dei metodi generali, non sui singoli tab. C'è il metodo
OnMouseMove come dici tu ma ma come posso fare a dirgli di cambiare tab
attivo solo quando è sul tab e non su tutto il pagecontrol?
Spero di essere stato chiaro.
Davide

Dunque, ho fatto come mi hai suggerito, il fatto č che non va niente :)
Cioč quando draggo dei file sul Tab disattivato (e che quindi voglio
attivare), mi resta il cursore del "divieto".
Secondo me č dovuto dal fatto che io per fare drag 'n drop uso un componente
esterno e non i controlli drag 'n drop di Delphi, quindi probabilmente non
viene attivata la procedura per quello.
correggimi se sbaglio
Davide

Davide
	Ciao
	MassimoB
Newsgroup: it.comp.lang.delphi
Titolo: sempre x dilemma di matematica

Innanzitutto vi ringrazio tutti per le risposte al mio post.
Adesso vi illustro quello che credo di avere scoperto:
Ho creato tramite in gioco due salvataggi, uno per così dire originale,
e l'altro modificando i primi 3 n° di maglia.
Dal confronto tra i due salvataggi mi sono reso conto che
modificando i primi tre numeri di maglia si vanno a cambiare solamente
i primi due bytes della famosa sequenza
                  00 12 1A 0A CA 9C 84 1C A3 45 21 27 AB B2 07
passando da 00 12 a BE 67.
A questo punto resta da definire la logica con la quale
si ottiene 1-17-5 da 00 12
e 31-30-26 da BE 67.
 posto ora la sequenza completa della numerazione di maglia delle prime 3
squadre:
1° squadra
sequenza in Hex: 00 12 1A 0A CA 9C 84 1C A3 45 21 27 AB B2 07
n° di maglia   : 1-17-5-21-2-6-11-7-8-10-9-15-4-14-18-3-19-20-12-22-13-16
----------------------------------------------------------------------------
-
2° squadra
sequenza in Hex: 60 08 12 26 25 19 85 18 CD C9 43 21 B1 AE 07
n° di maglia   : 1-4-3-5-2-20-6-10-7-11-9-13-14-15-19-8-21-17-18-22-12-16
----------------------------------------------------------------------------
--
3° squadra
sequenza in Hex: 60 90 22 02 EA 24 64 IE 91 C1 26 2B D3 D1 05
n° di maglia   : 1-4-5-6-3-2-11-8-10-9-7-16-18-13-17-14-19-22-20-15-21-12
----------------------------------------------------------------------------
---
Se ci sono domande sono a disposizione.
Grazie anticipatamente
ps.
    non so se serva a qualcosa ma il gioco in questione è in japponese

     non so se serva a qualcosa ma il gioco in questione è in japponese
ecco.....ci mancava solo questa !! heeh
Antonio Tarolla

Newsgroup: it.comp.lang.delphi
Titolo: scanner

Salve a tutti.
Qualcuno mi sa dire come poter acquisire immagini con uno scanner in
un'applicazione delphi?
Grazie
Gianni

Ci sono molti componenti che fanno quello che tu cerchi
eccoti uno che a parere mio č buono
http://www.ciemmesoft.com/componenti/categorie.asp?ID=4&PAG=1
Se hai problemi inviami un e-mail
vincenzo...@inwind.it
Ciao
Vincenzo Di Falco
--------------------------------
Inviato via 
http://usenet.libero.it

un'applicazione delphi?
ti consiglio di farti una passeggiata su 
www.torry.net
 ci sono alcuni componenti
free molto pratici e veloci ...
http://www.torry.net/mmtwain.htm
oppure ti dai un'occhiata alle specifiche Twain dal manuale scaricabile OnLine
e acquisisci come pare a te ;) ... 
anche se ti costerà qualche settimana :(
comunque scherzi a parte io ho scaricato un componente 
da torry, "AcquireImage", poi dovendo fare cose un pò più
violente ;) mi sono dato alle specifiche Twain con cui tra l'altro 
il componente lavorava già in origine ...
	Ciao
	MassimoB
 
	--------------------[Fuori Tema]---------------------
	"La vera autenticita' non sta nell'essere come si e',
	ma nel riuscire a somigliare il piu' possibile
	al sogno che si ha di se stessi".
	Di Huma Rojo in "Tutto su mia madre".
	-----------------------------------------------------

Grazie a Vincenzo Di Falco e MassomoB.
Forse ho trovato quello che mi serviva.
Se avrò problemi vi farò sapere.
Gianni
Newsgroup: it.comp.lang.delphi
Titolo: TWordApplication problema

Ragazzi, come posso fare per aprire semplicemente un documento di word e
mandare in stampa solo una pagina? oppure un range?
ho provato a cambiare i parametri perň non succede niente.
Come si fa?
procedure TForm1.Button1Click(Sender: TObject);
var
FileName: OleVariant;
begin
 if OpenDialog1.Execute then
  begin
     FileName := OpenDialog1.FileName;
WordApplication1.Documents.Open(FileName,
	EmptyParam,EmptyParam,EmptyParam,
	EmptyParam,EmptyParam,EmptyParam,
	EmptyParam,EmptyParam,EmptyParam);
WordApplication1.ActiveDocument.PrintOut(
	EmptyParam,EmptyParam,EmptyParam,
	EmptyParam, EmptyParam,EmptyParam,
	EmptyParam,EmptyParam,EmptyParam,
	EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam);
   end;
end;
--------------------------------
Inviato via 
http://usenet.libero.it

Dove posso trovare un manuale?
esistono libri sull'argomento?

Newsgroup: it.comp.lang.delphi
Titolo: simulazione tasto su Controllo (keyb_event) D2007

Durante l'accesso ad un campo Date (evento OnEnter), controllo TDbEdit,
non riesco a spostare il cursore nella posizione voluta, il primo carattere.
<Controllo>.SelStart := 0;  //il cursore resta dove e' stato premuto il 
mouse
ho provato
keybd_event(VK_HOME, 0, 0, 0);
l'evento viene intercettato, verificato sll'evento OnKeyDown, ma il cursore 
non
si ssposta.
Se pero' premo il tasto Home il cursore si sposta alla posizione 0. 

 ha scritto nel messaggio
news:4d14c7ec$0$10582$4faf...@reader1.news.tin.it...

cosi' si posiziona, valori sotto il 220 resta su posizione 1 anziche' 0
      keybd_event(VK_HOME, 0, 0, 0);
      sleep(220);
      keybd_event(VK_HOME, 0, 0, 0);
pero' la soluzione non mi convince, sembra ci sia il buffer tastiera
che non e' vuoto, altrimenti non si spiegherebbe che con un po' di
ritardo il tasto inviato risponda.

Newsgroup: it.comp.lang.delphi
Titolo: problema https://forums.embarcadero.com

Qualcuno riesce ad accedere?
Provato firefox, provato explorer...niente da fare...(connessione ok 
ovviamente...)


Che io sappia, sono offline già da parecchio. :/
 
-- 
MARCO BREVEGLIERI (Software and Web Developer)
 #Home: 
http://www.marco.breveglieri.name
 
 #Blog: 
http://www.compilaquindiva.com
 
 #DelphiPodcast: 
http://www.delphipodcast.com
 


 
Non sono offline, con google cache riesco a vedere messaggi anche recenti...
Pare (almeno a me) che sia scaduto il certificato ssl del sito...ho 
provato ad abbassare il livello di protezione di firefox (tls a 0) ma 
non ci sono ca@@i....
 
:(
 


 
Hanno risolto!
Ora è accessibile!

 Ora è accessibile!
 
Il problema è... per quanto tempo lo sarà? :D



 
ROTFL!
 


 
Infatti è down nuovamente!
GRRRRRRRRRRRRRRRRRRRRRRRRRRRRR

Newsgroup: it.comp.lang.delphi
Titolo: Emulazione tastiera

Vorrei leggere dei dati dalla seriale ed inviarli al sistema operativo 
come se avessi premuto dei caratteri da tastiera. 
NOTA: non voglio scrivere dentro un campo del mio programma. Il focus 
ad esempio potrebbe essere su un applicativo esterno, come ad esempio 
un documento Excel o un documento Word. 
Un esmpio è la "Tastiera su schermo" di Windows. Se premo un tasto 
qualunque, questo è visualizzato sull'applicativo che in quel momento 
ha il focus.
Qualcuno saprebbe dirmi come fare?
-- 
Il ladro ti dice o la borsa o la vita la moglie ti 
prende sia l'una che l'altra!
Inviato da 
www.mynewsgate.net

Qualcuno saprebbe dirmi come fare?
Fai un programma che con AsyncPro catturi l'input seriale e poi spedisci sotto
forma di messaggi all'applicativo designato.
Il resto lo trovi su questo gruppo. Googla, che fa bene alla salute. ;-)
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Qualcuno saprebbe dirmi come fare?
prova con keyb_event
per esempio:
keybd_event(VK_NUMPAD0, MapVirtualKey(VK_NUMPAD0, 0), 0, 0);
-- 
Ore 18.30: premo invio.
Newsgroup: it.comp.lang.delphi
Titolo: numeri

>>>>>> 
fred...@libero.it
 <<<<<<<<

 forse ho bisogno di una dormitina...
Eheh te stai in grossa grisi !! ;-PP
Davide DG

 forse ho bisogno di una dormitina...
Avevo fatto questa funzione:
Function Power(Base, Exponent: extended): extended; export;
begin
  if Base > 0 then
    Result := exp( Exponent * ln( Base ) )
  else if Base = 0.0 then
    Result := 1.0
  else If Exponent=Trunc(Exponent) Then
    Result := (-2*(Trunc(Exponent) Mod 2)+1) * Exp(Exponent * Ln( -Base ) )
  Else
    Result := 0
end;

forse ho bisogno di una dormitina...
exp(ln(base) * esponente)
--
Andrea Laforgia (ICQ 87230455)
------------------------------ 
#exclude <windows.h>

 end;
Unit
Math
Category
Arithmetic routines
function Power(Base, Exponent: Extended): Extended;
Description
Power raises Base to any power. For fractional exponents or exponents
greater than MaxInt, Base must be greater than 0.
Newsgroup: it.comp.lang.delphi
Titolo: Visual PlanIt di TurboPower Qualcuno è riuscito a convertire il progetto di esempio in FB?

Ciao a Tutti,
Ho scaricato da 
http://sourceforge.net/projects/tpvplanit
questa bellissima VCL della TurboPaower.
Ha un bellissimo esempio, però utilizza come data base Paradox.
Ho provato a convertire l'intero proggetto per utilizarlo con
FB 1.5.2 ma con scarso successo "totale insuccesso",
qualcuno è riuscito a  convertirlo?
Lo potrebbe postare nel repository?
Ciao by Enzo
www.scozzaro.it

 
Non sapevo che questo newsgroup prevedesse anche un'area repository... potreste 
darmi l'indirizzo per favore? Grazie.
Andrea Barbagallo

 darmi l'indirizzo per favore? Grazie.
A breve partiremo con il nuovo sito, un cms totalemente dedicato alla
nostra piccola community. Ci sara' anche un'area download ove scaricare (e
caricare) i contributi degli utenti.
Un po' di pazienza, dovremmo riuscire ad essere up entro una/due settimane
al max.
Ciao
-- 
Morde. 
FAQ di icld (beta-version): 
http://icld.altervista.org
 
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 qualcuno è riuscito a  convertirlo?
Io avevo fatte delle prove per adattarlo ad access, e mi sembra che c'ero
riuscito, solo che il (mio) progetto attualmente e' congelato e quindi non
ricordo piu' nulla.
Appena avro' un po' di tempo libero (a sognarmelo!) cerchero' di tornare
sul thread col contributo. Te ogni tanto rifatti vivo, che ne so magari tra
un mesetto, se prima non hai segnali da parte mia.

Newsgroup: it.comp.lang.delphi
Titolo: Cambiare lo sfondo

Il mio obiettivo e' quello di cambiare lo sfondo del mio desktop. Dopo una
ricerca tra le API di Windows ho trovato tale comando che sembrerebbe fare
al caso mio:
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,pchar(Stringa Path
file),SPIF_UPDATEINIFILE)
Sembrerebbe perche' fatto "RUNnare" con Delphi fa il suo dovere ma se invece
lo compilo e lo faccio partire come EXE non succede nulla.  Ora, vi chiedo
dove sto sbagliando? In che modo avreste risolto il problema?
Grazie.
Ciao
Guybrush


wrote:


NO.
No e' il mio scopo. Voglio che si cambi subito lo sfondo e sottolineavo che
facendo partire il prg sotto delphi funge,  compilato no!

 dove sto sbagliando? In che modo avreste risolto il problema?
Ciao!  Eh! Bel problemuccio... ho provato e in effetti succede anche a me!
Comunque il problema è facilmente "aggirabile" in questo modo:
Non capisco tuttavia la necessità di un simile barbatrucco!! Un errore di
Delphi?
 Mah! Io mi accontento di aver trovato una soluzione rapida! ;-)
Procedure CambiaSfondo (Immagine : string);
var p : pchar;
begin
 getmem (p,length(immagine)+1);
 strcopy (p,pchar(immagine));
 SystemParametersInfo(SPI_SETDESKWALLPAPER,0,p,SPIF_SENDCHANGE)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 CambiaSfondo('C:\Windows\Media\b.bmp');
end;
Ciao!! Davide DG

 end;
NotaBene: manca una FreeMem su p alla fine...
Io cmq avrei provato con un array[0..MAX_PATH] di char... [così non ti
preoccupi di allocare/deallocare e dovresti avere la compatibilità con
PChar...]
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

 numero di terminatori nulli (#0) che trovano alla fine della stringa.
Perche' al numero di terminatori nulli? Una stringa non finisce solo con un
#0?  Quanti ne servono?
Ciao

 PChar...]
Uh ?  Io adoro allocare e deallocare!! Tu no? eheheh... scherzo...
Ora il vero motivo del messaggio... Andrea : quale è la tua mail ?  quella
che indichi tu,
anche se "epurata" del trattino basso ... non mi funziona... boh.... sarà il
mio smtp server maledetto...
Ciao!! Davide DG

 #0?  Quanti ne servono?
Una stringa sì, il fatto è che a volte si sfruttano i terminatori nulli per
altri motivi...
Esempio: la ShFileOperation, se gli si passa una lista di files invece che
un unico files vuole che alla fine della lista ci sia #0#0 ...


 mio smtp server maledetto...
La mia mail "principale" è proprio 
ama...@energy.it
Tra poco tra l'altro il mio provider cambia nome e diventerà quindi
ama...@interac.it
Mi puoi raggiungere anche su
 Wappi (messaggino SMS sul cell) : 
ama...@wappi.it
 RCM (Rete Civica Milanese): 
Andrea...@rcm.inet.it
 su SuperEva e su Tin ma non li controllo troppo spesso.
Ti invito ad usare solo Energy (futuro Interac) e Wappi se vuoi raggiungermi
mentre usa RCM per files con attachments...

Newsgroup: it.comp.lang.delphi
Titolo: Disintossicarsi da Visual Basic .. (leggermente OT)

 Video 21''
Sicuramente e' il video da 21 che fa la differenza :)))))
Scusate, non lo faccio piu' :)) Non ho saputo resistere :)
Ciao.Alberto.

Newsgroup: it.comp.lang.delphi
Titolo: Esecuzione come administrator

Ciao. Qualche giorno fa ho scritto un post dove chiedevo un vostro 
parere su come impostare il sistema operativo affinche' facesse girare 
una certa applicazione con i privilegi di Administrator (senza chiedere 
ogni volta la password come succede con "Esegui come...").
Purtroppo non sono riuscito a risolvere la cosa, quindi provo a cambiare 
prospettiva: se in fase di installazione, che deve necessariamente 
essere fatta da Administrator, chiedo a quest'ultimo la password e la 
memorizzo in forma criptata, è possibile poi, ogni volta che lancio 
l'applicazione da semplice utente, "salire al livello Administrator" 
usando questa password richiamando qualche API di windows?
Ditemi di si'...
MT

Ho letto il tuo post precedente e sono interessato alla questione, per il
momento sto guardando sull'MSDN.
Prova a dare un occhio qua...
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/createprocesswithlogonw.asp
 

 ogni volta la password come succede con "Esegui come...").
http://tinyurl.com/dhzn5
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

MT ha scritto:
[cut]
Dipende da cosa devi fare, ma prova a guardare la documentazione di 
AdjustTokenPrivilege
Ciao,
Gianluca

Newsgroup: it.comp.lang.delphi
Titolo: File XML

Utilizzando un oggetto XMLTrasformProvider dovrebbe essere possibile creare
un'interfaccia database verso un file XML.
Ma come si fa ad agganciare questo oggetto per esempio ad un TEdit o ad un
TDBEdit?
grazie.

non puoi associarlo ad un tclientdataset?
A
Newsgroup: it.comp.lang.delphi
Titolo: Font di TStatusBar

Salve,
ho questo problema:
vorrei controllare il font di una StatusBar composta da 3 pannelli ma
nonostante
io indichi colori e font voluti, il sistema a runtime mi presenta una
StatusBar standard con i colori e font non personalizzati.
Potete aiutarci?
Grazie Maurizio-Stefania

 StatusBar standard con i colori e font non personalizzati.
Devi utilizzare l'evento OnDrawPanel sfruttando il CANVAS della TStatusBar.
Non è molto divertente da programmare...
Se vuoi sicuramente su torry e DSP trovi le status bar con cambio dei
font...
vedi tu
ciao
Solid Snake IT

"Maurizio Lugoboni":
| Salve,
| ho questo problema:
| vorrei controllare il font di una StatusBar composta da 3 pannelli ma
| nonostante
| io indichi colori e font voluti, il sistema a runtime mi presenta una
| StatusBar standard con i colori e font non personalizzati.
imposta(te) UseSystemFont a False ;)
Ciao,
Alan Solo

se non erro devi usare il metodo "OnDrawPanel" e disegnarci sopra col
canvas.
vi prego smentitemi !
--
web:    
http://gnaffy.tripod.com/
e-mail: Gna...@Wappi.com
e-mail: 
bmq...@tin.it
ICQ#:  76488613

Newsgroup: it.comp.lang.delphi
Titolo: Me ne sono accorto oggi...

Proprio prima di chiedere se qualcuno sapesse che fine aveva fatto il sito
di Torry, visto che l'ultimo upgrade mi risultava portato al 11/4/2003 (il
giorno di Pasqua)
Oggi è stato aggiornato!
Buona settimana a tutti
Andrea

)

Newsgroup: it.comp.lang.delphi
Titolo: Programmatori - OFFRO SOGGIORNO Turistico e interessante proposta.

Cari amici,
sono un trader (di borsa) con esperienze di programmatore tra gli anni
84 - 92. Programmavo in GWBASIC.
Ho da parecchio tempo in mente un programma per trader dai risvolti
economici sicuramente interessanti.
Naturalmente non esiste un prodotto analogo già in commercio .
Imparare un nuovo linguaggio per lo scopo richiede molto tempo col
rischio di dover rifare molte cose daccapo.
Cerco un esperto programmatore, probabilmente il Delphi o C+ sarebbero i
linguaggi più adatti, meglio ma non necessariamente con qualche
conoscenza minima di analisi tecnica finanziaria .
Intanto vi offro un soggiorno per due in una magnifica isola del centro
sud, anche solo per parlarne. In ogni caso se nasce reciproca fiducia è
possibile cominciare un serio rapporto con ragionevoli prospettive.
Mi servono naturalmente un po' di referenze perchè il soggiorno potrebbe
allettare qualche furbo con intenzioni poco serie.
Contattatemi a  
johnm_...@yahoo.com
  indicandomi possibilmente un
numero di recapito telefonico e le vostre esperienze. Cominceremo col
fare conoscenza telefonica.
Cordialmente
John

 wrote in message
news:3ECE271A...@yahoo.com...


Newsgroup: it.comp.lang.delphi
Titolo: applicazioni tray

Scusate,
forse la mia domanda č piu' generale ma visto che sto utilizzando delphi ho
pensato di postarla qui...
Il mio quesito riguarda la realizzazione di applicazioni che in Windows
finiscono nell'area tray...
C'e' un modo particolare per realizzarle in Delphi (io uso il 4)...
Grazie...

 finiscono nell'area tray...
Guarda la funzione ShellNotifyIcon!
Ciao!
--
- Carlo -
ps : evita il crosspost ...
Newsgroup: it.comp.lang.delphi
Titolo: spostare i record di una tabella

scusate, avrei un problema con i database.
sto creando un piccolo programmino, una rubrica, che si appoggia su un
database. vorrei creare una fonzione che ordini i vari nominativi. il mio
problema e' che non conosco una funzione che mi permetta di spostare un
intero record, anche di una sola posizione. in alternativa, come posso
accedere ai singoli campi di ogni nominativo? in modo da copiare tutti i
vari campi del record attuale, per poi copiarli in un altro record, capite
cosa voglio dire? grazie mille
--
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
http://www.turbo-pascal.cjb.net
  Tutto sul Turbo
Pascal  1.5

Se vuoi solo ordinare i record in base ad un campo puoi semplicemente
impostare 'NomeCampo ASC' nell'IndexFiled del componente (con ADO faccio
così)
Se poi vuoi puoi fare la stessa cosa con un po' di sql 'select * from
Tabella ORDER by NomeCampo ASC'
Spero di non aver vaneggiato ;-)
--
_________________________________
Edmondo Di Tucci 
snar...@tin.it
www.powernetsi.it
 
edm...@powernetsi.it

 Spero di non aver vaneggiato ;-)
ok, risolto il problema dell'ordinamento. cmq rimane sempre il problema di
come accedere ad ogni singolo campo e di come spostare i record, almeno io
nn ho capito come fare
grazie 1000


In che senso?
Se vuoi accedere ad un campo fai semplicemente
DataSet.FieldValues['NomeCampo'] (o simili) avendo l'accortezza di
posizionarti sul record giusto in qualche modo (clicchi su un DBAware o con
una Locate, ecc..)
Sul fatto di spostare i record la domanda la faccio io: Perché?


 Sul fatto di spostare i record la domanda la faccio io: Perché?
e' da pochi giorni che ho cominciato ad usare i database. come primo
programma sto facendo una rubrica, da cui nasce la necessita di ordinare i
nomi in ordine alfabetico (risolto). sapere come spostare record intri, in
questo momento non mi serve, pero' in futuro, kissa'... X questo lo vorrei
sapere, ok?
ho capito come si fa ad accedere ai singoli campi (grazie), ma non come
posizionarmi in un record di preciso...


 posizionarmi in un record di preciso...
Con la funzione Locate del dataset
Prendi la guida di Delphi, cerca ad esempio ADODataSet e tra i metodi trovi
Locate, ti fai una sana lettura, qualche prova, e tutto sarà chiaro


 trovi Locate, ti fai una sana lettura, qualche prova, e tutto sarà chiaro
gia fatto... grazie mille

Newsgroup: it.comp.lang.delphi
Titolo: applicazione idle?

Ciao a tutti!
Come si fa a fare in modo che se un pc non sta' utilizzando la cpu, la mia
applicazione runnante la possa utilizzare, mentre se altri processi la
usano, la mia applicazione si fermi?
Non so se e' chiara la domanda... vado a letto... ;-)
Grazie in anticipo, Chris
P.S.: L'applicazione in questione (un aggetto activex), attualmente se trova
messaggi di sistema li processa, altrimenti esegue il suo lavoro (un render
3d di un oggetto)

 usano, la mia applicazione si fermi?
Guarda sull'Help TApplication.OnIdle
-- 
Lis
ICQ@Home #7317603sette     ICQ@Work #16285702tre
Mercatino: 
http://lis77.bravepages.com
 (aggiornato *con foto*: 16/06/03)

 Non so se e' chiara la domanda... vado a letto... ;-)
prova a vedere la documentazione microsoft su SetPriorityClass e l'opzione
IDLE_PRIORITY_CLASS e SetThreadPriority con l'opzione THREAD_PRIORITY_IDLE
Ciao
Matteo

 Guarda sull'Help TApplication.OnIdle
Come non detto, Matteo ha scritto più giusto di me :-/


 Come non detto, Matteo ha scritto più giusto di me :-/
beh, le due cose non si escludono. Ci possono essere applicazioni dove
entrambe le soluzioni possono essere applicate. e poi magari qualcuno che
lurka OnIdle magari non lo conosceva e gli può fare comodo ;)
Ciauz
Matteo

Newsgroup: it.comp.lang.delphi
Titolo: Monitorare cartelle

Vorrei controllare quando in una cartella e/o o nelle sue sottocartelle sono
stati aggiunti /tolti dei files.
La funzione FindFirstChangeNotification, a quanto dice la guida di Delphi,
dovrebbe fare al caso mio, ma non ho capito come recuperare le informazioni
sul file che ha ha generato l'evento (per informazionni intendo il suo
nome).
Grazie in anticipo per tutti i consigli
-- 
Posted from 
smtp.technorail.com
 [195.103.144.19] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 stati aggiunti /tolti dei files.
Se lavori con Windows NT la ReadDirectoryChangesW dovrebbe fare al caso tuo
... in ogni caso ti consiglio di fare un salto su 
www.sysinternals.com
 e di
scaricare FileMon ... se non erro sono disponibili anche i sorgenti (in
Visual C++) e potrebbero esserti d'aiuto.
Saluti
--
- Carlo -
c.b...@libero.it
Newsgroup: it.comp.lang.delphi
Titolo: Cambio font parziale

Supponendo di usare un oggetto TMemo, come faccio a cambiare la dimensione
del font ad una parola anzichč a tutto il testo contenuto nel memo?
Ho provato ad utlizza le Jvcl ma cmq non sono riuscito a trovare un
componente che consente di farlo o non ho capito come farlo.
Grazie
Antonio Volpe.

 del font ad una parola anzichč a tutto il testo contenuto nel memo?
non credo proprio sia possibile farlo. 
Usa invece TRichEdit.
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

 Usa invece TRichEdit.
Supponendo di usare questo componente, c'è qualche metodo particolare che fa
quello che ho chiesto?

 c'è qualche metodo particolare che fa quello che ho chiesto?
procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Lines.Text := 'Quel ramo del lago di Como ...';
  RichEdit1.SelStart := 5;
  RichEdit1.SelLength := 4;
  RichEdit1.SelAttributes.Style := [fsBold];
  RichEdit1.SelAttributes.Color := clRed;
end;
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.delphi
Titolo: tagliare un disegno

sapete come posso fare a limitare l'area di un canvas?
esempio, nel programma
procedure TForm1.Button1Click(Sender: TObject);
var c1,aa,bb,cc,dd : Integer;
begin
   canvas.brush.style := bsclear;
   for c1 := 1 to 100 do
   begin
     aa := Random(width);
     bb := Random(height);
     cc := Random(width);
     dd := Random(height);
     canvas.ellipse(aa,bb,cc,dd);
   end;
end;
vorrei delimitare un area al di fuori della quale gli ellissi fossero 
troncati.
spero si comprenda la domanda.
grazie
-- 
-------------------------------
per scrivere in privato
togliere "1975nosp"
to reply remove "1975nosp"

 troncati.
TPaintBox. 
p.s.: "LE ellissi".
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 spero si comprenda la domanda.
la classe TCanvas ha una proprieta' ClipRect, non so se puo' fare al
caso tuo.
ciao
Giacomo

problema risolto, non lo taglio, se voglio i bordi mettero' i controlli 
al posto giusto giï¿œ a design time.
( sto sistemando un vcl di un report che ho scaricato al tempo di 
internet ).
Ora ï¿œ la fase della potatura


> Ora è la fase della potatura
Se hai prezzi buoni, ho un paio di amici che hanno il giardino...
rotfl!
A.
Newsgroup: it.comp.lang.delphi
Titolo: [ADODataset] Leggere il record successivo a quello attivo.

Ciao,
dovrei fare dei calcoli su di un ADODataset.
Stavo pensando di usare l'esempio EOF fornito dall'help.
Il problema e' che prima di lavorare sulla riga
attuale del dataset, dovrei leggere quella successiva
per vedere se è cambiata la data del giorno.
Non so proprio come fare.. qualcuno puo' darmi una dritta?
Miyomo
---
with ADODataSet1 do
  begin
  DisableControls;
  try
    First;
    while not Eof do
    begin
     { Process each record here }
     Next;
    end;
  finally
    EnableControls;
  end;
---


-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"

 complesse.
Non lo so se e' piu' o meno carina, ma visto che  funziona
per me č bellissima!
Grazie
  Miyomo
Newsgroup: it.comp.lang.delphi
Titolo: Info: Delphi 6 Personal Edition sul CD di "Io Programmo" di Dicembre

A chi interessa (ed ha la connessione troppo lenta come il sottoscritto)
Delphi 6 Personal Edition è presente sul CD di "Io Programmo" di
Dicembre (140M di download risparmiati :-)
La rivista costa 14.900.
E' necessaria comunque la registrazione (gratuita) presso il sito della
Borland per procedere con l'installazione (Opera mi si è inchiodato al
momento del login...spero sia stato un caso :-(  comunque con IE è
andata bene).
Simone
P.S. Spero che nel passare da Delphi 3.0 Pro a Delphi 6 l'aumento di
grandezza degli eseguibili non sia eccessiva  :-|  (o che UPX faccia
l'ennesimo miracolo :-)
_______________________________________________________
 All resistance is futile ! Prepare to be assimilated !

 ha scritto nel messaggio
news:qo080ugcn8hq9lv9j...@4ax.com...

Che significa personal edition?

Che significa personal edition?
Niente sw commerciale a quanto ne so
----
Lawrence "Rhymes" Oluyede
rhy...@myself.com

Che significa personal edition?
Non puoi fare programmi commerciali e manca un po' di roba [componenti &
c.], ma, considerato anche che è gratis, per le mie esigenze va bene...
"You may not use the Software for any commercial, business,
governmental or institutional purpose of any kind
("Noncommercial Purposes")."
""With Delphi 6 Personal Edition, new users can quickly learn RAD for
Windows with a seamless upgrade path to database, cross-platform and Web
Services development with the Professional and Enterprise editions.""
Da quest'ultima frase sembra che manchino i supporti per database,
cross-platform e Web (devo ancora vedere, ma francamente al momento non
mi servono...).
Io lo sto provando da poco (ho anche Delphi 3.0 Pro) e sto trovando
qualche problema: con la mia solita sfiga da beta-tester sono incappato
subito in qualche bug (da sistemare con l'update della Borland di 15M
:-( [ed i server sono un po' intasati, anche se ora è presente anche su
Tiscali File Express].
Inoltre la migrazione da 3.0 Pro a 6.0 non è così banale come speravo:
molte componenti di un mio programma non vengono compilate (ci sto
studiando...accidenti a designintf & altre novità; usavo componenti
esterne proprio perchè non sono bravo a programmare: ora mi ritrovo a
metterci le mani sopra....).
Infine ho scoperto che il codice è più ingombrante (l'ingombro "minimo"
passa da 180K a 350K circa) e NON è garantito che giri sotto W95
(l'avevo trovato in un post ed in effetti la licenza parla di usarlo dal
W98 in su).
Comunque qualche componente l'ho trovato decisamente migliorato (e.g. i
vari List e Treeeview) e poi era sempre più difficile trovare roba nuova
per Delphi 3 [anche se per ora non ce n'è tanta neanche per D6]:
insomma, spero d'ora innanzi di trovare sorprese in positivo...
Simone


 ha scritto nel messaggio
news:k6mb0u8autv788dvg...@4ax.com...

Ok grazie resto con D5 enterprise...e poi adesso mi é presa la febbre del
python!!

python!!
vedi di non fartela passare allora !



Perché?...Gradisci anche tu?

Perché?...Gradisci anche tu?
non č per niente male anche se per adesso l'ho lasciato in pausa

Newsgroup: it.comp.lang.delphi
Titolo: Manuale Delphi

Ho un urgente bisogno di una bella guida di riferimento su delphi e
interbase, se conoscete qualche titolo e sarete cosě gentili da indicarmi,
vi accendo una candela in chiesa.


Prova con delphi 6 tutto ed oltre di m. cantù della apogeo

 vi accendo una candela in chiesa.
Per Delphi cerca i testi di Teixeira - Pacheco. Per Interbase non so, lo ho
abbandonato parecchio tempo fa! :-(
--
- Carlo -

"Gianni" ha scritto nel messaggio
| Ho un urgente bisogno di una bella guida di riferimento su delphi e
| interbase, se conoscete qualche titolo e sarete cosě gentili da indicarmi,
| vi accendo una candela in chiesa.
Io conoscevo Mastering Delphi di Marco Cantů che spiega sia Delphi sia
InterBase ... ma č in inglese e la mia libreria non riesce atrovarlo in
italia ... se avete maggiori informazioni mi fate sapere? Magari mettendo
sia i riferimenti per un acquisto che una "votazione" ... grazie !Ciao
--
..::[ Panz ]::..

interbase, 
Nello specifico per Interbase non c'è nulla che io sappia.
C'è un capitolo su "Mastering Delphi 6" di Cantù, ma in generale, come
testo, non mi piace molto.  Su Delphi la guida migliore è, secondo me,
"Delphi 6 Developer's Guide" di Teixeira-Pacheco.  Del testo di Cantù
è sicuramente venuta fuori la versione per D7 (in inglese), di quello
di T/P non ancora.  Il testo di T/P non parla di IB.  In ogni caso,
per Interbase, c'è il documentation set di circa 10Mb (in PDF) che
veniva, un tempo, distribuito con la versione commerciale e che può
darti un'infarinatura generale.
-- 
Andrea Laforgia
"God is dead." -- Nietzsche
"Nietzsche is dead." -- God

 vi accendo una candela in chiesa.
Neanche a me piacciono tropp oi testi di Cantù, più che una guida sono u
ninsieme di curiosità
su aspetti particolari del linguaggio e dei componenti.
Io mi sono trovato bene, a suo tempo, con un testo (di Apogeo) su Delphi
3.
Non ricordo il titolo, ma dovrebbe essere ancora sui listini.
PS: personalmente, io opterei per un vecchio libro sul TP6 e su qualche
tutorial che mostri come applicare l'object pascal
alla programmazione guidata da eventi......
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: Server News

... un saluto festoso a tutti ...
devo creare un server nntp, dove trovo documentazione ?
tnk
--
Consonni Davide
bmq...@tin.it
gna...@wappi.com
webmaster of
http://gnaffy.Tripod.com
http://www.traduzioniellepi.com

 wrote in message
jkvm6.14990$q97.3...@twister1.tin.it...


 ha scritto nel messaggio
news:XfDo6.2448$yl2....@news1.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Toni di chiamata

ciao a tutti
c'è la possibilità di far emettere
dei toni dalle casse del pc,
attraverso delphi,
tipo "pagine bianche office" che dà la possibilità
di comporre un numero di telefono
accostando la "cornetta" del telefono alle casse del pc
grazie
erik

 erik
Cerca su 
torry.net
 DTMS.
Saluti.

 dei toni dalle casse del pc...
Ciao Erik.
Volendolo fare da te, puoi:
1. Prendere da qualche parte i files wav dei 12 toni (* e # inclusi). O
farteli generare da qualche sound editor (Cool Edit ha la funzione per
farli) e salvarteli... sempre in WAV.
2. In sequenza li fai eseguire (da risorsa come parlammo in passati post)
dalla funzione PLaySound con il flag "snd_sync" attivo. Farti un componente
per fare ciò è facilissimo.
Ciao.
Giuseppe

 1. Prendere da qualche parte i files wav dei 12 toni (* e # inclusi).
Sono dodici BiToni, 24 toni usati a coppie, Dual Tone Multy Frequency
aka DTMF.
http://www.ece.utexas.edu/~mason/codesign/pass/slides/sld003.htm
 

grazie a tutti :)
ho trovato questo
http://www.giangrandi.ch/jack/radio/dtmf-i.shtml
magari potrebbe essere utile a qualcuno
ciao
erik

Erik, mi potresti dare la tua mail, sarei interessato a chiederti un paio di
cosa.
Vabbè una te la chiedo anche qua.
Ora che hai i toni, come fai a dialogare con il telefono? Di sicuro nn
mettendolo vicino all'autoparlante del pc...

mettendolo vicino all'autoparlante del pc...
Ehm... si dice "ALTOparlante", non "autoparlante".
Dai uno sguardo alle funzioni di telefonia TAPI su MSDN.
-- 
Andrea Laforgia - a.laforgia(at)
libero.it
"There are three kinds of people in this world; 
 those who are good at maths and those who aren't".

Scusa è stata una svista, sai la fretta. Ok darò un occhiata

 mettendolo vicino all'autoparlante del pc...
----
noo?
invece č proprio cosě ;)
lo metto vicino all'altoparlante (-:)
e i toni compongono il numero
probabilmente funsiona cosě anche con la tastiera del telefono
bye
erik

l'ho testato pure io, mettendo a distanza il telefono dalle casse anche a
volume basso mi compone il numero alla grande!!!
Simone

Ok, ci sono in Chat.
Cmq, mettendo la cornetta vicino al telefono nn mi funzia. lo eseguo con
WinAmp. Bisogna per caso mettere una piccola pausa?

 WinAmp. Bisogna per caso mettere una piccola pausa?
----
(naturalmente con il cellulare non lo puoi fare)
no nessuna pausa
io ho dei toni che eseguo con un'intervallo i 115 di un timer e mi funsiona
benissimo
se vuoi te li do.
ciao
erik

se mi vedi.. /query erik
Per cortesia Erik cambia le stringhe di reply, quei "-----", perche' se mi
lasci questa sequenza "-- ", la maggior parte dei newsreader la interpreta
come signature e tronca il resto del messaggio.
-- 
Morde. 
(morde at programmer dot net)
Newsgroup: it.comp.lang.delphi
Titolo: consiglio per componente email

salve, qualcuno di vuoi conosce qualche buon componente email diverso dagli
indy per fare invio di email HTML con allegati ??
Simone

Eccoti accontentato
"AFQuickMail"
Lo uso da + di un anno (¨100 volte algiorno)e non mi ha dtato mai problemi.
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:213Z255Z118Z118...@usenet.libero.it...


Se vuoi mandami la tua e-mail che te lo invio.
La mia e-mail è vera.
Ciao


 ha scritto nel messaggio
news:AR8pa.43970$LB6.9...@news1.tin.it...


 La mia e-mail č vera.


Posso poterlo ricevere anch'io ?
Per evitare che il nostro amico Vince' debba spedire altre decine di email,
suggerisco di andare su 
http://www.afsoftware.it/ITA/index.htm
scegliere la pagina componenti e saricare quello che cercate.
-- 
Morde. 
morde[at]programmer[.]net
Newsgroup: it.comp.lang.delphi
Titolo: connessione internet attiva

Ho una lan di 3 pc.
Uno di questi e' collegato ad una ADSL, gli altri 2 possono navigare
attraverso il primo.
L'adsl NON usa RAS ma EnterNet (3Com).
Come determinare se una connessione internet e' attiva o meno?

 ha scritto nel messaggio:

prova a vedere se InternetGetConnectedState() ti riconosce questo genere di
connessioni. Per un utilizzo pratico vedi l'esempio presente nelle faq del
ng.
Ciao
--
- Carlo -
c.b...@libero.it

 ha scritto nel messaggio
news:uKon8.65977$%g7.21...@twister2.libero.it...


 ha scritto nel messaggio
news:83pn8.68172$1S3.2...@twister1.libero.it...


 Se qualcuno potesse indicarmi qualche altro metodo....
La veggo buia! :-)
In teoria è la stessa funzione utilizzata da Internet Explorer per
riconoscere le connessioni attive. IE ti riconosce come online? Ora non
ricordo neppure bene il prototipo della funzione che ti ho consigliato, ma
se non ricordo male c'è qualche flag da impostare ... sicuro che non si
tratti di quella? In caso non vada temo che per te la strada sia tutta in
salita ... sorry, ma non ne so di più!


ObiWan wrote:

ping ad un sito noto (es. 
www.netscape.com
 o 
www.microsoft.it
)
Ciao.
Mimmo.

ping ad un sito noto (es. 
www.netscape.com
 o 
www.microsoft.it
)
Giusto, ma occhio ai firewall.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]
Newsgroup: it.comp.lang.delphi
Titolo: Domanda da 100 milioni .....di $

Ho Delphi 3 Standard:
e siccome vorrei convertire in Delphi (quanto meno per praticare) un
mio programmino di gestione libreria fatto con VB5 Prof. vorrei
riutilizzare il Database che ovviamente è in formato access97.
E' possibile? E se si coem posso fare, visto che sono da due ore e ci
ho lasciato perdere perchè non ci riesco?
Grazie in anticipo.
Robin

Vai in BDEADMIN e crea un alias che punti al tuo db access.
Il resto viene da se.
Saluti
AS
"Se è Microsoft non funziona"
Newsgroup: it.comp.lang.delphi
Titolo: Svuotare cartella....

Ciao a tutti che comando posso usare per cancellare i file contenuti in una
cartella con il seguente path?
(copio una riga di cpodice per fare più in fretta......)
sl.SaveToFile(extractfilepath(application.ExeName)+'\exp\'+c+'.txt');
Grazie 1000
-- 
Lorenzo Mendini Iz2FOS
ICQ: 26993628 (Ayrton)
http://www.polopositivo.org
 (Home Page)

Usa FindFirst, FindNext per ricercarti i file nella cartella extractfilepath(application.ExeName)+'\exp\
poi, per ogniuno di essi usa DeleteFile
--
Ciao,
David (
www.utilityweb.net
)

ciao la riga che ti ho postato è alla fine di una procedura di export....
invece io dovrei svuotare la cartella comeprima cosa.... potresti fare un
esempio di come poteri fare?
Grazie 1000


Procedure SvuotaDrectory(Const Direttorio : String);
Var
   SR : TSearchRec;
Begin
    If FindFirst(Direttorio+'*.*', faAnyFile, SR) = 0 Then
       Begin
           If Copy(ExtractFileName(SR.Name), 1) <> '.'
           Then
              SysUtils.DeleteFile(Direttorio+ExtractFileName(Sr.Name));
           While FindNext(SR) Do
                     If Copy(ExtractFileName(SR.Name), 1) <> '.'
                     Then
                       SysUtils.DeleteFile(Direttorio+ExtractFileName(Sr.Name));
           FindClose(SR);
       End;
End;
La chiamata Sarà SvuotaDirectory(ExtractFilePath(Application.FileName)+'\exp\');   (Nota lo slash finale)
Nota:
   Il controllo Copy(ExtractFileName(SR.FileName), 1) <> '.'  serve a bypassare le directory radice
   Uso SysUtils.DeleteFile per evitare un Try ... Except
--
Ciao,
David (
www.utilityweb.net
)

Grazie lo proverň

scusa ma non mi è chiara una sola cosa: cosa è "direttorio"?

 scusa ma non mi è chiara una sola cosa: cosa è "direttorio"?
Modo arcaico di definire le directory, poi diventate "cartelle" con l'arrivo
di win95.
--
Jax
====
Quelli che non sanno ricordare il passato, sono condannati a ripeterlo.
(George Santayana)

quindi al posto di direttorio metto il nome della mia cartella cioč EXP?

 quindi al posto di direttorio metto il nome della mia cartella cioč EXP?
Al posto di Direttorio metti il nome completo della cartella piů uno slasch finale
Esempio: C:\MioProg\Dir\Exp\ oppure ExtractFilePath(Application.FileName)+'\exp\'
--
Ciao,
David (
www.utilityweb.net
)

Mi si blocca su questa riga:
If Copy(ExtractFileName(SR.Name),1)<>'.'Then
con il seguente errore:  NOT ENOUGH ACTUAL PARAMETERS

Errore di battitura modificala cosi'
 If Copy(ExtractFileName(SR.Name),1,1)<>'.'Then
--
Ciao,
David (
www.utilityweb.net
)

Su questa riga mi da errore MUST BE BOOLEAN
While FindNext(SR) Do

)


Ciao,
non intervengo sull'errore (già ti hanno risposto) ma sulla forma usata.
FindNext segue all'uso di inizializzazione e prima ricerca fatto con
FindFirst.
Mettere FindNext in un While così come hai fatto tu è errato in quanto
eliminerà, senza che tu lo possa analizzare il primo riferimento trovato con
FindFirst.
Una forma corretta è la seguente:
...
A:= FindFirst...
While A=0 Do
Begin
...
Analisi del risultato di ricerca
...
A:= FindNext...
End;
FindClose...
...
Ciao
Giuseppe
Newsgroup: it.comp.lang.delphi
Titolo: Realizzare un CD autorun con Delphi

Se v'interessa sapere come realizzare un CD autorun (naturalmente con 
Delphi), ho pubblicato questo sul mio sito: 
http://digilander.libero.it/mauro.falzari/delphi/cd_autorun.html
-- 
Mauro Falzari ( 
http://digilander.libero.it/mauro.falzari
 )
"Se guardi nell'abisso, anche l'abisso guarda in te." (Friedrich Nietzsche)


http://digilander.libero.it/mauro.falzari/delphi/cd_autorun.html
Se invece di fare
  if GetPrivateProfileString(
      'run', 'filename', 'default.htm', Buffer, SizeOf(Buffer),
      PChar(ExtractFilePath(ParamStr(0)) + 'autorun.inf'))
    < SizeOf(Buffer)
  then
    ShellExecute(0, 'open', Buffer, nil, nil, SW_SHOWMAXIMIZED);
perche non usi TIniFile?
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 perche non usi TIniFile?
per non usare IniFiles.pas e avere un eseguibile più piccolo.


Newsgroup: it.comp.lang.delphi
Titolo: BACKGROUND

C'e qualcuno che mi sa dirmi come far rimanere una finestra attiva insieme
ad un'altra??
Grazie.
--------------------------------
Inviato via 
http://usenet.iol.it

 ad un'altra??
Cioč...?
Bye
AS
Newsgroup: it.comp.lang.delphi
Titolo: Font in richedit

Ciao a tutti,
ho un problema: ho una richedit di input, dove l'utente può scrivere
testo a suo piacento (con font diversi), ed una di output, dove il
testo di input deve essere riscritto mantenendo la formattazione
iniziale.
E' possible? Se sì, come?
Grazie
DR

 iniziale.
Provo a riepilogare il problema per vedere se ho capito bene.
Tu hai due controlli *RichEdit* in cui viene mostrato del testo; nel 
primo, l'utente può cambiare il font e scrivere testo che deve essere 
riportato anche nel secondo, ma in quest'ultimo il carattere deve 
rimanere "standard" e immutato?
Prova a spiegare meglio... :-/
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

cerco di spiegarmi meglio:
nel secondo controllo RichEdit il testo deve essere riportato con lo
stesso font che l'utente ha immesso nel primo...
DR

 stesso font che l'utente ha immesso nel primo...
Eccoti una soluzione semplice semplice semplice:
http://www.swissdelphicenter.ch/en/showcode.php?id=1440
:-D


 con lo stesso font che l'utente ha immesso nel primo...
Vediamo se riesco a interpretare il tuo pensiero:
- hai due richedit;
- devono contenere lo stesso testo, con l'identica
formattazione;
Ora, i metodi per farlo sono diversi, il più semplice dei
quali quello di usare la clipboard. Esempio
(i metodi usati hanno nomi abbastanza esplicativi)
procedure TForm1.Button1Click(Sender: TObject);
begin
 LockWindowUpdate(RichEdit1.Handle);
 try
  RichEdit1.SelectAll;
  RichEdit1.CopyToClipboard;
  try
   LockWindowUpdate(RichEdit2.Handle);
   RichEdit2.Clear;
   RichEdit2.PasteFromClipboard;
  finally
   LockWindowUpdate(RichEdit2.Handle);
  end // try finally
 finally
  LockWindowUpdate(RichEdit1.Handle);
 end;// tyr finally
end;
Ciao
-- 
ACSH
[D4]
Chi fa da se', fatica il doppio