D.P.F Component Seti ios için

Delphi xe4 ve xe5 ile ios uygulamaları geliştirenlerin işine yarayacak bir çok component barındırır.

http://sourceforge.net/projects/dpfdelphiios/

Burdan indirebilirsiniz.

Delphi Basit Threading

Delphide thread çalışmak isteyip karmaşık threadinglerden anlayamıyorsanız çok basit bir yolu var aslında.
İndy nin id threadi bu işi pek ala yapmaktadır.

Yapmanız gereken idthread i forma almak.Sonra Events da Onrun kısmına çift tıklayın

procedure TFrmMain.ShowProcRun(Sender: TIdThreadComponent);
var
  I: Integer;
begin
  for I := 0 to 10000 do
   Label1.caption:=Label1.caption+'X';
end;

begin end arasına thread olarak çalışmasını istediğiniz kodu yazıp sonunda

idthread1.stop yazarak işlemi bitirebilirsinz.

Hepsi Bukadar basit :)

Bilisayar Adı ve Kullanıcı İsmi Bulma

function GetComputerNetName: string;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := "
end;

Function GetUserFromWindows: string;
Var
   UserName : string;
   UserNameLen : Dword;
Begin
   UserNameLen := 255;
   SetLength(userName, UserNameLen) ;
   If GetUserName(PChar(UserName), UserNameLen) Then
     Result := Copy(UserName,1,UserNameLen - 1)
   Else
     Result := 'Unknown';
End;