delphi text file write

var
  txt : TextFile;
begin
  AssignFile(txt,'c:\ornek.txt');
  ReWrite(txt);
  WriteLn(txt,'Deneme1');
  WriteLn(txt,'Deneme2');
  CloseFile(txt);
end;

delphi text file read

var
  txt : TextFile;
  tmp : string;
begin
  AssignFile(txt,'c:\ornek.txt');
  Reset(txt);
  while not EOF(txt) do
  begin
    ReadLn(txt, tmp);
    ShowMessage(tmp);
  end;
  CloseFile(txt);
end;

delphi set oci.dll(SetOCIDLL)

OCI.dll adresini programdan set edilebilmesi için “OracleCI” uses kısmına eklenmelidir.Set edilecek olan adres bilgisi yazıldıktan sonra OCI.dll istediğimiz adresten çalıştırılmış olacaktır.

uses OracleCI;

procedure SetOCIDLL();
begin
  if FileExists('c:\oracledata\bin\oci.dll') then
    OCIDLL:='c:\oracledata\bin\oci.dll';
end;

initialization
  SetOCIDLL();

end.

delphi username bulma(getusername)

Function ActiveUserName: string;
Var
  fUserName : string;
  fUserNameLen : Dword;
Begin
  fUserNameLen := 255;
  SetLength(fuserName, fUserNameLen) ;
  GetUserName(PChar(fUserName), fUserNameLen);
  Result := pchar(fUserName);
End;

delphi bilgisayar adını bulma(getcomputername)

function ActiveComputerName: string;
var
  buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  Windows.GetComputerName(@buffer, Size);
  Result := StrPas(buffer);
end;

delphi registry readstring

uses Registry;

var
  fRegistry: TRegistry;
begin
  fRegistry:=TRegistry.Create;
  try
    fRegistry.RootKey := HKEY_LOCAL_MACHINE;
    fRegistry.OpenKey('\software\myproject', True);
    ShowMessage(fRegistry.ReadString('FormCaption'));
    fRegistry.CloseKey;
  finally
    fRegistry.Free;
  end;
end;

delphi registry writestring

uses Registry;

procedure writeCaption;
var
  fRegistry: TRegistry;
begin
  fRegistry:=TRegistry.Create;
  try
    fRegistry.RootKey := HKEY_LOCAL_MACHINE;
    fRegistry.OpenKey('\software\myproject', True);
    fRegistry.WriteString('FormCaption',form1.Caption);
    fRegistry.CloseKey;
  finally
    fRegistry.Free;
  end;
end;

delphi registry write

uses Registry;

var
  fRegistry: TRegistry;
begin
  fRegistry:=TRegistry.Create;
  try
    fRegistry.RootKey := HKEY_LOCAL_MACHINE;
    fRegistry.OpenKey('\software\myproject', True);
    fRegistry.WriteString('FormCaption',form1.Caption);
    fRegistry.CloseKey;
  finally
    fRegistry.Free;
  end;
end;

Delphi uygulamayı 2. ekranda açma

Uygulamalarımızı ikinci ekranda açabilmemiz için ekranın genişliğini formumuzun left değerine eşitleyerek basitçe yapabiliriz.

with Form1 do
begin
  Left:=Screen.Width;
  WindowState:=wsMaximized;
end;

Delphi arama işlemi(klasör,altklasör)

var
  SR: TSearchRec;
  DirList: TStringList;
  IsFound: Boolean;
  i: integer;
begin
  if StartDir[length(StartDir)] <> '\' then
    StartDir := StartDir + '\';

  IsFound :=  FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0;
  while IsFound do begin
    Memo1.Lines.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);

  DirList := TStringList.Create;
  IsFound := FindFirst(StartDir+'*.*', faAnyFile, SR) = 0;
  while IsFound do begin
    if ((SR.Attr and faDirectory) <> 0) and  (SR.Name[1] <> '.') then
      DirList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);

  for i := 0 to DirList.Count-1 do
    FindFiles(DirList.Strings[0], FileMask);
  DirList.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FindFiles('C:\windows\', '*.txt');
end;