Converte uma String em Real

Converte uma String em Real Function StrToReal(InStr: String): Real; var Code : Integer; Temp : Real; begin Result := 0; If Copy(InStr,1,1)=’.’ then InStr:= ‘0’ + InStr; If (Copy(InStr,1,1)=’-‘) and (Copy(InStr,2,1)=’.’) then Insert(‘0’,InStr,2); If InStr[length(InStr)] = ‘.’ then Delete(InStr,length(InStr),1); Val(InStr,Temp,Code); if Code = 0 then Result := Temp; end;

Continuar lendo »

Rotina de resgate das variáveis de ambiente DOS

Rotina de resgate das variáveis de ambiente DOS Function GetDOSEnvVar(const VarName:String):String; Var Len:Integer; pDosEnv:PChar; Begin result :=”; Len := Length(VarName); PDosEnv := GetEnvironmentStrings; If (StrLIComp(PDosEnv, @VarName[1], Len) = 0) And (PDosEnv[Len] =’ ‘) Then Begin Result := StrPas(PDosEnv + Len + 1); Break; End; Inc(PDosEnv, StrLen(PDosEnv) + 1); End;

Continuar lendo »

Como habilitar e desabilitar barra de tarefas do windows ?

Como habilitar e desabilitar barra de tarefas do windows ? Para habilitar e desabilitar a barra de tarefas do windows use as seguintes procedures: procedure hideTaskbar; // DESABILITA var wndHandle : THandle; wndClass : array[0..50] of Char; begin StrPCopy(@wndClass[0], ‘Shell_TrayWnd’); wndHandle:= FindWindow(@wndClass[0], nil); ShowWindow(wndHandle, SW_HIDE); // This hides the taskbar end; procedure showTaskbar; // HABILITA var

Continuar lendo »

Minimizando uma janela de maneira diferente

Minimizando uma janela de maneira diferente Você já viu aquele efeito de minimizar uma janela de modo que ela fique minimizada na área de trabalho acima da barra de tarefas do Windows? Faça o seguinte, crie um projeto novo e coloque a seguinte instrução no evento OnCreate do Form: SetWindowLong(Application.Handle,GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW); depois

Continuar lendo »
Pages:«123456789...22»