Como saber se o aplicativo já foi aberto

Insira o código abaixo dentro do arquivo .DPR de sua aplicação {$R *.RES} begin Application.Title := ”; Application.HelpFile := ”; if HPrevInst = 0 then begin F_Splash := TF_Splash.create(Application); F_Splash.Show; Application.CreateForm(TF_Menu, F_Menu); Application.CreateForm(TF_Error, F_Error); Application.CreateForm(TF_Form1, F_From1); Application.CreateForm(TF_Form2, F_Form2j); Application.Run; end else messagedlg(‘O sistema já foi inicializado!’,mtinformation,[mbok],0); end.

Continue reading »

Verificar a impressora, antes de uma impressão

Verificar a impressora, antes de uma impressão Verificar se a impressora esta OK, antes de iniciar uma impressão é um bom procedimento, abaixo segue uma função que retorna true se a impressora esta pronta para imprimir. Function PrinterOnLine : Boolean; Const PrnStInt : Byte = $17; StRq : Byte = $02; PrnNum : Word =

Continue reading »

Compactando tabelas Paradox no Delphi

Compactando tabelas Paradox no Delphi procedure ParadoxPack(Table : TTable); var TBDesc : CRTblDesc; hDb: hDbiDb; TablePath: array[0..dbiMaxPathLen] of char; begin FillChar(TBDesc,Sizeof(TBDesc),0); with TBDesc do begin StrPCopy(szTblName,Table.TableName); StrPCopy(szTblType,szParadox); bPack := True; end; hDb := nil; Check(DbiGetDirectory(Table.DBHandle, True, TablePath)); Table.Close; Check(DbiOpenDatabase(nil, ‘STANDARD’, dbiReadWrite, dbiOpenExcl,nil,0, nil, nil, hDb)); Check(DbiSetDirectory(hDb, TablePath)); Check(DBIDoRestructure(hDb,1,@TBDesc,nil,nil,nil,False)); Table.Open; end; Para compactar tabelas Dbase use

Continue reading »

Verificando atributo do arquivo

Verificando atributo do arquivo Crie uma variável do tipo word, por ex., Attributes. Depois, atribua a esta variável o valor retornado por FileGetAttr. Ex.: var Attributes: Word; begin Attributes := FileGetAttr( ‘nomedoarquivo’ ); // Supondo 4 CheckBoxe’s, 1 para cada atributo, Ok? CheckBox1.Checked := (Attributes and faReadOnly) = faReadOnly; CheckBox2.Checked := (Attributes and faArchive) =

Continue reading »
Pages:1234567...23»