Desenvolvimento de Software

Como obter o username logado no Windows em Delphi   Esta função permite que através da rotina GetUserName da API do Windows seja possível recuperar o usuário (username) que se logou ao windows. function UsuarioLogado : string; var nsize: Cardinal; UserName: string; begin nsize := 25; SetLength(UserName,nsize); if GetUserName(PChar(UserName), nsize) then begin SetLength(UserName,nsize-1); Result :=…

Como habilitar e desabilitar as teclas ctrl+alt+del ? // desabilita procedure TForm1.Button1Click(Sender: TObject); var numero: integer; begin SystemParametersInfo(97,Word(true),@numero,0); end; // habilita procedure TForm1.Button2Click(Sender: TObject); var numero: integer; begin SystemParametersInfo(97,Word(false),@numero,0); end;

Obtendo o nome do usuário e a empresa do Windows Para Obter o nome do usuário e a empresa em que Windows esta registrado, siga os procedimentos abaixo: 1-Insira Registry em Uses: Uses Registry; 2-Insira no Form, 2 Edit’s e um Botão. Programe o evento click do botão com o seguinte código abaixo: Procedure TForm1.Button1Click(Sender:…

Desconecta uma unidade mapeada via programação Delphi Function DesconectaRede(Letra:Pchar;Forcada:boolean):String; // Letra = Letra atribuida a unidade // Forcada = Força o cancelamento do mapeamento begin WNetCancelConnection2(Letra,0,Forcada); Case GetLastError() of 1205: Result := ‘Não foi possível abrir o perfil’; 1206: Result := ‘Perfil do usuário não encontrado ou inválido’; 1208: Result := ‘Ocorreu um Erro específico…

Função que remove um caractere especificado de uma string em Delphi function RemoveAllChars(S: string; Ch: Char): string; var i: Integer; begin i := Length(S); while (Length(S) > 0) and (i > 0) do begin if S[i] = Ch then Delete(S,i,1); Dec(i); end; Result := S; end;

Função que captura a tela e salva-a em um Bitmap em Delphi function CaptureScreenRect( ARect: TRect ): TBitmap; // Exemplo // Image1.picture.Assign(CaptureScreenRect(Rect(0,0,Width,Height))); var ScreenDC: HDC; begin Result := TBitmap.Create; with Result, ARect do begin Width := Right – Left; Height := Bottom – Top; ScreenDC := GetDC( 0 ); try BitBlt( Canvas.Handle, 0, 0, Width,…

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…

Mapear um drive de rede Como mapear uma unidade de rede via programação Delphi Function MapeaRede(Letra,Path,provedor:Pchar):String; // Local = Letra atribuida a unidade // Path = Caminho do mapeamento // Provedor = Provedor da rede var NRW: TNetResource; begin with NRW do begin dwType := RESOURCETYPE_ANY; lpLocalName := Letra; lpRemoteName := Path; lpProvider := provedor;…

Função que remove os zeros a frente de um valor em Delphi function RemoveZeros(S: string): string; var I, J : Integer; begin I := Length(S); while (I > 0) and (S[I]

function PrinterPadrao :String; // Requer a unit printers declarada na clausula uses da unit var Device : array[0..255] of char; Driver : array[0..255] of char; Port : array[0..255] of char; hDMode : THandle; begin Printer.GetPrinter(Device, Driver, Port, hDMode); Result := Device+’ na porta ‘+Port; end;