Alterando a data do sistema

Alterando a data do sistema Como alterar a data do sistema via Delphi 1a. Parte: A função. function SetNewTime(Ano, Mes, Dia, hour, minutes: word): Boolean; var st:TSYSTEMTIME; begin GetLocalTime(st); st.wYear := Ano; st.wMonth := Mes; st.wDay := Dia; st.wHour := hour; st.wMinute := minutes; if not SetLocalTime(st) then Result := False else Result := True;

Continuar lendo »

Converte String em Pchar

Função que converte String em Pchar em Delphi function StrToPChar(const Str: string): PChar; type TRingIndex = 0..7; var Ring: array[TRingIndex] of PChar; RingIndex: TRingIndex; Ptr: PChar; begin Ptr := @Str[Length(Str)]; Inc(Ptr); if Ptr^ = #0 then begin Result := @Str[1]; end else begin Result := StrAlloc(Length(Str)+1); RingIndex := (RingIndex + 1) mod (High(TRingIndex) + 1);

Continuar lendo »

Retorna a impressora Padrão do windows

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;

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 »
Pages:«1234567...23»