Dosya Uzantısından Programın Tespiti
| ||||
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
const
BufferSize = {$IFDEF Win32} 540 {$ELSE} 80 {$ENDIF};
var
Buffer : PChar;
StringPosition : PChar;
ReturnedData: Longint;
begin
Buffer := StrAlloc(BufferSize);
try
{ get the first entry, don’t bother about the version !}
ReturnedData := BufferSize;
StrPCopy(Buffer, ‘.pas’);
RegQueryValue(hKey_Classes_Root, Buffer, Buffer,
ReturnedData);
if StrLen(Buffer) > 0 then
begin
showmessage(strpas(buffer));
end;
except
showmessage(‘bulunamadi’);
end;
end;
Benzer Yazılar:
- Delphi ile Mp3 dosya çalmak çaldırmak
- Tüm Dosya ve Klasörlerin Listesini Almak
- Ekran Klavyesi
- ASCII Kodlarını Bulmak
- Bilgisayardaki Sürücü Listesini Almak
- Dosya Kopyalama
- Metin İçerisinden Bir Karakter Silmek
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
Loading ...