... C'e` qualcosa di sbagliato in quel codice? Grazie LUCA Io non userei Halt e poi farei il controllo, nel dpr, in questo modo [..] cfg: TIniFile; begin if (ParamStr(1) = '-coc') then begin //Io metterei anche un controllo se esiste il FileIni oppure un valore di default //bisogna poi vedere che ci fai con il valore. cfg := TIniFile.Create(...

... il mistero del perche` si chiuda con errore! Prima l'esecuzione terminata da codice senza errori. Nella OnCreato ho scritto questo: If ParamCount<>1 Then Halt; If ParamStr(1)<>'-coc' Then Halt; Application.Title := 'schedule...'; cfg := TIniFile.Create(ExtractFilePath(Application.ExeName)+'coc_plugins.ini'); CocIniFile := cfg.ReadString( 'General Settings', 'COC Ini Path...

...Simple case, second-best choice of filename ok 20 - no filenames found ok t/Misc...............1..14 ok 1 - bug 971008-MWN: are MIME attributes parsed ok? ok 2 - bug 970822-AL: Mail::Field register problem (paramstr) ok 3 - bug 970822-AL: Mail::Field register problem (type) ok 4 - bug 970725-DNA: QP use of RFC2049 guideline 8 ok 5 - bug 970725-DNA: QP use of RFC2049 guideline 8 ok 6 - bug...

...Simple case, second-best choice of filename ok 20 - no filenames found ok t/Misc...............1..14 ok 1 - bug 971008-MWN: are MIME attributes parsed ok? ok 2 - bug 970822-AL: Mail::Field register problem (paramstr) ok 3 - bug 970822-AL: Mail::Field register problem (type) ok 4 - bug 970725-DNA: QP use of RFC2049 guideline 8 ok 5 - bug 970725-DNA: QP use of RFC2049 guideline 8 ok 6 - bug...

frankyae wrote: Salve, e grazie in principio. Avrei bisogno di passare parametri al FormCreate(Sender:TObject);, tipo FormCreate(Sender:TObject; Ambiente:String); dove Ambiente è il mio parametro. Come posso fare? --- posted by geoForum on http://www.delphiedintorni.it Guardare l'help sotto paramstr no ? Guido

..., i've used for long time, but now i'm loosing data from the tables and i think it's because net/priv dir. i've my app in diferent dir of the tables, but now i want to create NET/PRIV dirs. i use this code in the .DPR unit and on the datamodule.oncreate session.Privatedir:= extractfilepath(paramstr(0)) + '..\PRIV'; session.Netfiledir:= extractfilepath(paramstr(0)) + '..\NET';

... steps according to the software you are using. DELPHI: Session.PrivateDir := ExtractFilePath(ParamStr(0)) + 'PRIV'; C / C++: DbiSetPrivateDir(szPath); // szPath is the fully ... steps according to the software you are using. DELPHI: Session.NetFileDir := ExtractFilePath(ParamStr(0)) + 'NET'; C / C++: DbiSetProp(hSes, sesNETFILE, (UINT32)szPath); // ...

... following steps according to the software you are using. DELPHI: Session.PrivateDir := ExtractFilePath(ParamStr(0)) + 'PRIV'; C / C++: DbiSetPrivateDir(szPath); // szPath is the fully qualified ... steps according to the software you are using. DELPHI: Session.NetFileDir := ExtractFilePath(ParamStr(0)) + 'NET'; C / C++: DbiSetProp(hSes, sesNETFILE, (UINT32)szPath); // szPath...

... l'input del successivo. il codice che dimostra questo è semplice: procedure TForm1.Button4Click(Sender: TObject); var SEInfo: TShellExecuteInfo; ExitCode: DWORD; ExecuteFile, ParamString, StartInString: string; begin ExecuteFile:='C:\TEMP\publish\publish\GenericMapping.application'; FillChar(SEInfo, SizeOf(SEInfo), 0) ; SEInfo.cbSize := SizeOf(TShellExecuteInfo) ...

...VerValueSize: DWORD; VerValue: PVSFixedFileInfo; Dummy: DWORD; begin VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy); GetMem(VerInfo, VerInfoSize); GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo); VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize); with VerValue^ do begin Result ...