köszi! majd írok tapasztalatokat.

Ha jóban vagy a torrentekkel, akkor pl. http://dl.bushtorrent.com/download.php?id=39055&name=Borland%20Developer%20Studio%202006-SHOCKiSO%203416793%20TPB

hali!

nem akartam új topicot nyitni, delphi 2006 kellene!

tud vki?

dayofweek

Hogy lehet detektálni, hogy milyen nap van? Tehát hétfő, kedd, stb kellene. A shortdateformat változónál van olyan, hogy dddd, de ez, ha magyarra van állítva a területi beállítás, akkor magyarul mutatja, ha angolra, akkor angolul mutatja a napot. Nekem az kellene, hogy ha vasárnap van, akkor pl. 7 legyen az érték, ha hétfő, akkor 1, stb, és ez függetlenül attól, hogy milyen nyelvű az oprendszer.

Megmondjam a nevét?

mellesleg az én megoldásom:

procedure pSetTime;
var
sysTime: TSystemTime;
begin
try
DateTimeToSystemTime(StrToDateTime(copy(Dekoded, 9, length(Dekoded))), sysTime);
SetLocalTime(sysTime);
except
end;
ClientSt:= DateTimeToStr(Now)
end;

Ez szakdolgozattéma? Ugye csak vicc? Ráadásul könyvből kellett összelopni? Atyaisten... Bocs, de ez már eléggé durva... Nem tudom milyen iskola lehetett ez, de ezekután nem is vagyok rá kíváncsi...

Az én megoldásom, a Delphi 5-ben írt szakdolgozatomban, Digitális óra mutatása. Igaz, én is kölcsönöztem a progit egy szakkönyvből!
Valójában lekérdezi a számítógép rendszeridejét.

unit Digorau;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;

type
TForm4 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Digi2: TForm4;

implementation

{$R *.DFM}

procedure TForm4.FormCreate(Sender: TObject);
begin
Timer1.Interval:=1000; // másodpercenként jel
Timer1.Enabled:=true; // bekapcsoljuk az órát
// másodpercenként kiírjuk a formázott időt
Label1.caption:=FormatDateTime('hh:mm:ss', Time);
end;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
// másodpercenként kiírjuk a formázott időt
Label1.caption:=FormatDateTime('hh:mm:ss', Time);
end;

end.

var
NewDateTime,CurrentDateTime : TSystemTime;
...
begin

GetSystemTime(CurrentDateTime);
...
NewDateTime.wYear := CurrentDateTime.wYear;
NewDateTime.wMonth := CurrentDateTime.wMonth;
NewDateTime.wDay := CurrentDateTime.wDay;
NewDateTime.wHour ... wMinute ..... etc
...
SetLocalTime(NewDateTime);

Nincsmit. Csak tipp, de szerintem kell lennie akkor SetLocalDate-nek is.

Ok müködik , egyébként kerestem a helpbe , de nem találtam

Bár még van vele 1 kis gond: a dátumot visszaálitja 1980-ra , de ezt már megoldom.

Köszi Udv NePe

Nem próbáltam ki, de remélem műxik. Amúgy a Delphi help csodákra képes.
Hála az égnek a Delphinek és a Win32 API-nak rengeteg apró kisutcája van bonyolult dolgok elvégzésére is, csak meg kell találni.

Hm azthittem ez bonyolultabb.

function SetLocalTime(Value: TDateTime): boolean;

Parameters
Value: TDateTime

The date and time to use for the local computer.


Returns

Boolean - True when the local computer date is updated.

Description

SetLocalTime is a Boolean function used to update the time on the local computer system using the TDateTime value in Value.
SetLocalTime is used by Indy time synchronization components like TIdSNTP and TIdTime.
SetLocalTime encapsulates the platform-specific procedures and functions used to update the time on the local computer system. For the Windows platform, the procedure used is Windows.SetLocalTime. On the Linux platform, SetLocalTime performs no operation and always returns False.

Írok gyorsan egy példát:

Hi nem tudja valak , hogy tudnám beállítani az időt windowsban ?